6.5.11 (e x)^m (a+b sech(c+d x^n))^p.nb

(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    243071,       4482]
NotebookOptionsPosition[    237301,       4330]
NotebookOutlinePosition[    239040,       4384]
CellTagsIndexPosition[    238997,       4381]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 StyleBox[
  RowBox[{Cell[TextData[StyleBox["Rules for integrands of the form",
    FontFamily->"Arial",
    FontSize->16]], "None"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sech", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", 
          SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"]}],
  FontSize->16]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, {3.5233155055329347`*^9, 3.523315506402936*^9}, {
   3.523318726949605*^9, 3.5233187276796064`*^9}, {3.523920400879534*^9, 
   3.5239204094439487`*^9}, 3.52392096260852*^9, 3.523921038171853*^9, 
   3.5340477459008017`*^9, 3.5340515540554085`*^9, {3.536542511100503*^9, 
   3.53654251626051*^9}, {3.536775961244521*^9, 3.5367759616145215`*^9}, {
   3.544373142375139*^9, 3.5443731599851637`*^9}, {3.5721095751430073`*^9, 
   3.5721095751430073`*^9}, {3.57578648209792*^9, 3.575786503859958*^9}, 
   3.575786540270422*^9, {3.5757866379421935`*^9, 3.5757866609522343`*^9}, 
   3.5758478960540276`*^9, 3.57584912634415*^9, 3.575849218264279*^9, {
   3.575849275424359*^9, 3.57584927603436*^9}, 3.6857607860863657`*^9, 
   3.685761754022728*^9, 3.6860825413304205`*^9, 3.686083506290613*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sech", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", 
           SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{
       FractionBox["1", "n"], "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
      RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, 3.5194115106017265`*^9, {3.519411582829853*^9, 
   3.5194116058086934`*^9}, {3.5194117949434257`*^9, 
   3.5194118041006413`*^9}, {3.519412000598587*^9, 3.5194120130942087`*^9}, {
   3.5197938929263773`*^9, 3.5197938931447773`*^9}, {3.521473804992657*^9, 
   3.521473829412691*^9}, {3.5214741072930803`*^9, 3.521474108863083*^9}, {
   3.523316613544486*^9, 3.523316613544486*^9}, {3.5233184952952356`*^9, 
   3.5233184952952356`*^9}, {3.523318653417488*^9, 3.523318653417488*^9}, 
   3.5239324213533645`*^9, {3.5239326372733436`*^9, 3.523932666538995*^9}, 
   3.5239334940268483`*^9, {3.524105742828332*^9, 3.524105745433536*^9}, {
   3.524105783326003*^9, 3.5241058043704395`*^9}, {3.524167197804468*^9, 
   3.524167275274576*^9}, {3.5241673584446926`*^9, 3.5241673584446926`*^9}, {
   3.5241684217861814`*^9, 3.5241684663262434`*^9}, {3.5241684966162863`*^9, 
   3.5241685133463097`*^9}, {3.524168558706373*^9, 3.524168575716397*^9}, {
   3.5242542194504414`*^9, 3.5242543397578526`*^9}, {3.5242543718471093`*^9, 
   3.5242544424216332`*^9}, {3.524254478910097*^9, 3.5242545759266677`*^9}, {
   3.5242546436307864`*^9, 3.5242546436307864`*^9}, {3.5242547267009325`*^9, 
   3.5242547400857563`*^9}, {3.5242771462350645`*^9, 
   3.5242771465938654`*^9}, {3.5304877376854625`*^9, 3.530487831775594*^9}, {
   3.5305002113339696`*^9, 3.53050021156397*^9}, {3.531256229526664*^9, 
   3.5312562621635933`*^9}, 3.5312563043041887`*^9, 3.5312565353964834`*^9, 
   3.5312718541780033`*^9, {3.531272022680298*^9, 3.531272043970912*^9}, 
   3.5312721159644337`*^9, {3.531286527477171*^9, 3.53128654727564*^9}, {
   3.53133653657067*^9, 3.5313365374719667`*^9}, {3.5332481026588316`*^9, 
   3.5332481046588345`*^9}, {3.533940608115779*^9, 3.5339406083757796`*^9}, {
   3.533940643135828*^9, 3.533940671755868*^9}, {3.53394080166605*^9, 
   3.53394080166605*^9}, {3.5339408897661734`*^9, 3.5339408897661734`*^9}, {
   3.5340308298369713`*^9, 3.534030830046972*^9}, {3.534112012597548*^9, 
   3.534112012877548*^9}, {3.534112474048194*^9, 3.534112474048194*^9}, {
   3.534113465549582*^9, 3.534113471999591*^9}, {3.534114052440404*^9, 
   3.5341140526804037`*^9}, {3.534123360239563*^9, 3.5341233613895645`*^9}, {
   3.534262842344612*^9, 3.5342628439826155`*^9}, {3.5345322182396417`*^9, 
   3.534532219211697*^9}, {3.534643132523288*^9, 3.5346431327603016`*^9}, {
   3.5347067097112875`*^9, 3.534706709898488*^9}, {3.5347082903060637`*^9, 
   3.534708290493264*^9}, {3.5362781002847185`*^9, 3.5362781290847588`*^9}, {
   3.5362782051648655`*^9, 3.5362782927449875`*^9}, 3.5362797486970263`*^9, {
   3.536279783657075*^9, 3.536279832137143*^9}, {3.53628010156752*^9, 
   3.53628010156752*^9}, {3.5362801392775726`*^9, 3.536280166697611*^9}, {
   3.53652906512737*^9, 3.5365290653769703`*^9}, {3.5365397273466053`*^9, 
   3.5365397330766134`*^9}, {3.536540186427248*^9, 3.5365401865872483`*^9}, {
   3.539227727250819*^9, 3.53922772761082*^9}, {3.5393944379874496`*^9, 
   3.539394446018832*^9}, {3.539715023192065*^9, 3.5397150234140773`*^9}, {
   3.539739975773082*^9, 3.5397399760140953`*^9}, {3.539797199704884*^9, 
   3.539797201294886*^9}, {3.539835437168765*^9, 3.5398354373871655`*^9}, {
   3.5398732892608166`*^9, 3.539873290540019*^9}, {3.539908000735093*^9, 
   3.5399080032650967`*^9}, {3.539909324256946*^9, 3.539909324736947*^9}, {
   3.5399100056779003`*^9, 3.539910006327901*^9}, {3.5399117038534846`*^9, 
   3.539911705973488*^9}, {3.5399118081136303`*^9, 3.539911840493676*^9}, {
   3.5399120167139225`*^9, 3.539912058673981*^9}, {3.539912116434062*^9, 
   3.539912160944124*^9}, {3.5399122079541903`*^9, 3.539912209034192*^9}, {
   3.540225401674527*^9, 3.5402254175709553`*^9}, {3.540246803939736*^9, 
   3.540246809609744*^9}, {3.5402469657699623`*^9, 3.5402469659899626`*^9}, {
   3.54025326406878*^9, 3.54025326428878*^9}, {3.540319548749316*^9, 
   3.540319553564592*^9}, {3.540319615043108*^9, 3.540319615043108*^9}, {
   3.54031990826388*^9, 3.54031991963153*^9}, {3.540320024044502*^9, 
   3.540320024044502*^9}, {3.5404234560150514`*^9, 3.5404234562802515`*^9}, {
   3.54042664356545*^9, 3.5404266437682505`*^9}, {3.540427710030123*^9, 
   3.5404277102485237`*^9}, {3.540502502497757*^9, 3.540502505587761*^9}, {
   3.541558935167153*^9, 3.5415589691752124`*^9}, {3.5415590130736895`*^9, 
   3.541559016256095*^9}, {3.541625196004671*^9, 3.541625196398693*^9}, 
   3.5416263852991595`*^9, {3.5416288096753197`*^9, 3.5416288210353355`*^9}, {
   3.5416454005828133`*^9, 3.541645406332822*^9}, {3.541645442062872*^9, 
   3.5416454471728787`*^9}, {3.541645529512994*^9, 3.5416455313729963`*^9}, {
   3.5416499420791717`*^9, 3.541649942359172*^9}, {3.560538024109749*^9, 
   3.560538024369749*^9}, 3.5605380740698185`*^9, {3.5666111850869775`*^9, 
   3.566611185376978*^9}, {3.5696955663080134`*^9, 3.5696955663080134`*^9}, 
   3.685766520004327*^9, {3.685814668389265*^9, 3.685814668389265*^9}, {
   3.6858169198030386`*^9, 3.6858169445264525`*^9}, 3.6858173823154926`*^9, {
   3.6858175247846413`*^9, 3.6858175263117285`*^9}, {3.685818330835745*^9, 
   3.6858183337949142`*^9}, 3.685818375570304*^9, 3.6858197670098896`*^9, {
   3.6858245116672688`*^9, 3.6858245170775776`*^9}, 3.685825040784532*^9, 
   3.686082505181353*^9, 3.686082902965105*^9, 3.686083482653261*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.49539151296132*^9, 3.495678787084699*^9, 3.4956789080048685`*^9, 
   3.4956790295250387`*^9, 3.495679129075178*^9, {3.495679335075466*^9, 
   3.4956793607555027`*^9}, {3.495679674485942*^9, 3.4956796884659615`*^9}}],

Cell[TextData[{
 "Basis: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"-", "1"}], "\[LessEqual]", "n", "\[LessEqual]", "1"}], " ", 
   "\[And]", " ", 
   RowBox[{"n", "\[NotEqual]", "0"}]}]]],
 ", then ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"F", "[", 
    SuperscriptBox["x", "n"], "]"}], "\[Equal]", 
   RowBox[{
    FractionBox["1", "n"], " ", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{
       SuperscriptBox["x", 
        RowBox[{
         FractionBox["1", "n"], "-", "1"}]], 
       RowBox[{"F", "[", "x", "]"}]}], ",", "x", ",", 
      SuperscriptBox["x", "n"]}], "]"}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     SuperscriptBox["x", "n"]}]}]}]], "Input",
  CellChangeTimes->{{3.496607156053342*^9, 3.4966071870033855`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.496441803031353*^9, 3.4965396318089237`*^9, {3.4966002562016735`*^9, 
   3.4966002624716825`*^9}, 3.496600707442305*^9, 3.4966008475725017`*^9, {
   3.4966070255131593`*^9, 3.496607032413169*^9}, {3.496607078713234*^9, 
   3.4966070808932366`*^9}, {3.4966071978234005`*^9, 3.496607200693404*^9}, {
   3.4966322361067057`*^9, 3.4966322383967094`*^9}, {3.5182408053387165`*^9, 
   3.518240855102804*^9}, {3.518240891700468*^9, 3.5182409026360874`*^9}, {
   3.5182410660151744`*^9, 3.5182410727231865`*^9}, {3.51824110908685*^9, 
   3.5182411327052917`*^9}, {3.518241193217798*^9, 3.5182411959634027`*^9}, {
   3.518291448974951*^9, 3.5182914676169834`*^9}, {3.518291524323083*^9, 
   3.51829153976711*^9}, {3.518291575631573*^9, 3.518291589562398*^9}, {
   3.5182917514854827`*^9, 3.5182917625459023`*^9}, {3.5197703785418744`*^9, 
   3.5197704585544147`*^9}, {3.5197801993811245`*^9, 3.5197802307059793`*^9}, 
   3.5197802678964443`*^9, {3.5349619561249747`*^9, 3.53496200984505*^9}, {
   3.5349621015651784`*^9, 3.534962104035182*^9}, {3.534962163665265*^9, 
   3.534962164115266*^9}, 3.534962219785344*^9, {3.5349640822679515`*^9, 
   3.534964083937954*^9}, {3.534965129279417*^9, 3.534965164959467*^9}, {
   3.5349652080495276`*^9, 3.5349652080495276`*^9}, {3.5349746773080826`*^9, 
   3.5349746773080826`*^9}, {3.534975420939124*^9, 3.534975423099127*^9}, {
   3.685765369788538*^9, 3.685765369788538*^9}, {3.685824654100415*^9, 
   3.685824654100415*^9}}],

Cell[TextData[{
 "Note: If ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", "n"], "\[Element]", 
   SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]]],
 ", resulting integrand is not integrable."
}], "Subsubsection",
 CellChangeTimes->{
  3.49539151296132*^9, 3.495678787084699*^9, 3.4956789080048685`*^9, 
   3.4956790295250387`*^9, 3.495679129075178*^9, {3.495679335075466*^9, 
   3.4956793607555027`*^9}, {3.495679674485942*^9, 3.4956796884659615`*^9}, {
   3.5608145301974535`*^9, 3.560814595487544*^9}, 3.6858144446954703`*^9}],

Cell[TextData[{
 "Rule: If ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    FractionBox["1", "n"], "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
   RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.495391733731629*^9, 3.495391739521637*^9}, {3.495678797624714*^9, 
   3.4956788080547285`*^9}, 3.4956788502147875`*^9, {3.4956789897249827`*^9, 
   3.495679002425001*^9}, {3.495679072285098*^9, 3.4956790738051004`*^9}, {
   3.495679236085328*^9, 3.495679236315328*^9}, {3.49567937329552*^9, 
   3.4956794246455917`*^9}, {3.495679535505747*^9, 3.495679554085773*^9}, {
   3.5193214041603594`*^9, 3.5193214071867647`*^9}, {3.5193301244794507`*^9, 
   3.5193301257494526`*^9}, 3.5193476221390333`*^9, 3.5193479662828407`*^9, {
   3.5193485103181963`*^9, 3.5193485549498744`*^9}, {3.519663663325344*^9, 
   3.5196636652216225`*^9}, {3.519680530562682*^9, 3.519680530562682*^9}, {
   3.5197556284379497`*^9, 3.5197556284379497`*^9}, {3.5197580987514877`*^9, 
   3.519758100545491*^9}, {3.5197581334459496`*^9, 3.519758155582388*^9}, {
   3.519758193256454*^9, 3.5197582684329863`*^9}, {3.5197584793297567`*^9, 
   3.519758583210339*^9}, {3.5197800633332853`*^9, 3.519780130444603*^9}, 
   3.519780263762437*^9, {3.519780890789939*^9, 3.519780929602807*^9}, 
   3.5197826749958725`*^9, {3.5213126916874757`*^9, 3.5213126916874757`*^9}, {
   3.521328242751012*^9, 3.521328242751012*^9}, {3.532302339923381*^9, 
   3.5323023440533867`*^9}, {3.5323027369539366`*^9, 
   3.5323027369539366`*^9}, {3.5326362525142794`*^9, 
   3.5326362612742915`*^9}, {3.534962194665309*^9, 3.5349622042053223`*^9}, {
   3.5349623337055035`*^9, 3.5349623339155035`*^9}, {3.5349625695458336`*^9, 
   3.5349625695458336`*^9}, {3.5349651959395103`*^9, 
   3.5349652008995175`*^9}, {3.534966956776985*^9, 3.5349669586769876`*^9}, {
   3.5349743512176266`*^9, 3.5349743752476597`*^9}, {3.5349744860878153`*^9, 
   3.5349744860878153`*^9}, {3.5349767696610117`*^9, 3.5349767696610117`*^9}, 
   3.5362786460954823`*^9, {3.536282186878441*^9, 3.5362821923884487`*^9}, {
   3.5362823665986924`*^9, 3.5362823705586977`*^9}, {3.539394469251404*^9, 
   3.539394469251404*^9}, {3.539873282116004*^9, 3.539873283254806*^9}, {
   3.5399121983141766`*^9, 3.5399121983141766`*^9}, {3.5402255014211025`*^9, 
   3.5402255014211025`*^9}, {3.5402468137997494`*^9, 
   3.5402468148197513`*^9}, {3.540398290646603*^9, 3.540398290646603*^9}, {
   3.5415590242277093`*^9, 3.5415590242277093`*^9}, {3.569695568959165*^9, 
   3.569695568959165*^9}, 3.6858144665747223`*^9, {3.6858146365304427`*^9, 
   3.6858146623109174`*^9}, {3.6858245571288686`*^9, 3.6858245571298685`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sech", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", 
          SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", "n"]}]}], " ", 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox["x", 
        RowBox[{
         FractionBox["1", "n"], "-", "1"}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Sech", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     SuperscriptBox["x", "n"]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, 3.495391718911608*^9, 
   3.495391753851657*^9, 3.495678825124752*^9, 3.495678868624813*^9, 
   3.495678953284932*^9, 3.4956790561650763`*^9, {3.495679179585249*^9, 
   3.495679198215275*^9}, 3.4956794688056536`*^9, 3.495679563895787*^9, {
   3.519347698835971*^9, 3.519347728101622*^9}, {3.5193477739345026`*^9, 
   3.519347777538109*^9}, {3.5193478217797866`*^9, 3.5193478387838163`*^9}, {
   3.519348134591536*^9, 3.5193481428439503`*^9}, {3.5197576021246157`*^9, 
   3.519757605431822*^9}, {3.5197795700292187`*^9, 3.519779608935687*^9}, {
   3.534962149765246*^9, 3.5349621724552774`*^9}, {3.5349650775293446`*^9, 
   3.534965103459381*^9}, 3.534973862136942*^9, 3.5349742172974386`*^9, 
   3.5362783981251354`*^9, {3.536278591995407*^9, 3.536278607745429*^9}, 
   3.5362787390056124`*^9, 3.5362788817458124`*^9, {3.536280261137744*^9, 
   3.5362803250178328`*^9}, 3.5362820058481874`*^9, {3.540246862469818*^9, 
   3.540246868999827*^9}, {3.5415590468789487`*^9, 3.5415590660669823`*^9}, {
   3.5416454118028293`*^9, 3.5416454148528337`*^9}, {3.6857665208203735`*^9, 
   3.685766521339403*^9}, 3.68581696685773*^9, {3.685817018367676*^9, 
   3.6858170217518697`*^9}, 3.685817358685141*^9, {3.6858175346492057`*^9, 
   3.685817537360361*^9}, {3.6858245649803176`*^9, 3.685824565514348*^9}, {
   3.6858246657610817`*^9, 3.6858246796858788`*^9}, {3.686082505581376*^9, 
   3.686082505877393*^9}, {3.686083482667262*^9, 3.686083482674262*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.534113202099213*^9, 3.5341132112992263`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Sech", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", 
           RowBox[{"x_", "^", "n_"}]}]}], "]"}]}]}], ")"}], "^", "p_."}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", "n"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"1", "/", "n"}], "-", "1"}], ")"}]}], "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"Sech", "[", 
              RowBox[{"c", "+", 
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "p"}]}], ",",
         "x"}], "]"}], ",", "x", ",", 
      RowBox[{"x", "^", "n"}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "p"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{
      RowBox[{"1", "/", "n"}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "p", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.495422238811969*^9, 3.5239327382679205`*^9, {3.5241061049829674`*^9, 
   3.5241061158093867`*^9}, {3.5241061634986706`*^9, 3.524106178100296*^9}, {
   3.5241522039971824`*^9, 3.5241522138657465`*^9}, {3.524167459434834*^9, 
   3.524167501524893*^9}, 3.5241675598849745`*^9, {3.5241689646025457`*^9, 
   3.524169057582676*^9}, {3.5241694886052837`*^9, 3.5241694922252893`*^9}, {
   3.5241697349256287`*^9, 3.524169770915679*^9}, {3.524169890175846*^9, 
   3.52416989278585*^9}, {3.5241699517859325`*^9, 3.524169977745969*^9}, {
   3.5241702075262904`*^9, 3.5241702284463196`*^9}, {3.5241703474164867`*^9, 
   3.5241703535564947`*^9}, {3.5241704168565836`*^9, 
   3.5241704281665993`*^9}, {3.5241707090069923`*^9, 3.5241707118469963`*^9}, 
   3.5241707660170727`*^9, {3.5241735897163877`*^9, 3.524173666646496*^9}, {
   3.524173777586651*^9, 3.5241738523767557`*^9}, {3.5241739428768826`*^9, 
   3.524173979156933*^9}, 3.524174297647379*^9, {3.524185483815135*^9, 
   3.524185485365137*^9}, {3.524185602895302*^9, 3.5241856035153027`*^9}, {
   3.5241856771854057`*^9, 3.5241856830554132`*^9}, {3.524185838105631*^9, 
   3.5241858734356804`*^9}, {3.5241859285057573`*^9, 3.524185944045779*^9}, {
   3.524186003185862*^9, 3.524186038265911*^9}, {3.52418611602602*^9, 
   3.5241861192260246`*^9}, 3.524186217346162*^9, 3.5241863019362803`*^9, {
   3.5241863667163706`*^9, 3.5241863784563875`*^9}, {3.52418651596658*^9, 
   3.5241865406766143`*^9}, {3.5241867699369354`*^9, 
   3.5241868085469894`*^9}, {3.5241868836270943`*^9, 3.5241869237971506`*^9}, 
   3.5241869873472395`*^9, {3.5241870885173817`*^9, 3.524187101037399*^9}, {
   3.5241871740575013`*^9, 3.5241871912575254`*^9}, {3.524187306817687*^9, 
   3.5241873162877*^9}, {3.5241873622777643`*^9, 3.524187409757831*^9}, 
   3.524187460357902*^9, {3.5241874977879543`*^9, 3.524187498347955*^9}, {
   3.524187557468038*^9, 3.5241875586680393`*^9}, {3.524187589468083*^9, 
   3.5241875901780834`*^9}, {3.5241876610181828`*^9, 
   3.5241876929782276`*^9}, {3.524187781768352*^9, 3.524187783788355*^9}, {
   3.5241896786382575`*^9, 3.524189683318266*^9}, {3.524234559451813*^9, 
   3.5242346007294855`*^9}, {3.524238368588504*^9, 3.5242383752965155`*^9}, {
   3.5242384122217803`*^9, 3.524238419928194*^9}, {3.5242393344018*^9, 
   3.524239346819422*^9}, {3.5242394127451377`*^9, 3.5242394565500145`*^9}, {
   3.52423959033585*^9, 3.524239629803919*^9}, {3.524239671487192*^9, 
   3.5242397220468807`*^9}, {3.524239788190997*^9, 3.5242398647715316`*^9}, {
   3.5242437175850987`*^9, 3.5242437668343854`*^9}, {3.524244465247612*^9, 
   3.5242444873372507`*^9}, {3.524244751882516*^9, 3.524244753208518*^9}, {
   3.524245115768755*^9, 3.524245137000392*^9}, {3.5242452528149953`*^9, 
   3.5242452554826*^9}, {3.5242456723777323`*^9, 3.5242456731889334`*^9}, {
   3.524245869936479*^9, 3.5242459980595045`*^9}, {3.5242461068384953`*^9, 
   3.5242461450273623`*^9}, {3.524246187958638*^9, 3.52424618922224*^9}, {
   3.5242462316543145`*^9, 3.524246267690378*^9}, {3.5242463181564665`*^9, 
   3.5242463224620743`*^9}, {3.5242485499936485`*^9, 3.524248561823665*^9}, {
   3.524248621593749*^9, 3.5242486251937537`*^9}, {3.5242487642059507`*^9, 
   3.5242487732359633`*^9}, {3.5242532845563993`*^9, 
   3.5242532909524107`*^9}, {3.52425347849594*^9, 3.5242535106475964`*^9}, {
   3.524253596868948*^9, 3.5242536191613874`*^9}, {3.5242537436028056`*^9, 
   3.5242537593588333`*^9}, 3.5242539276207285`*^9, {3.524254113276655*^9, 
   3.5242541142126565`*^9}, {3.5242547334245443`*^9, 3.5242547363105493`*^9}, 
   3.5249480328482866`*^9, 3.5249480870383625`*^9, 3.530383624409831*^9, 
   3.5303836572717104`*^9, {3.5304855821174417`*^9, 3.5304855869274483`*^9}, {
   3.530486056548106*^9, 3.530486059638111*^9}, {3.5304860949231606`*^9, 
   3.5304860971731634`*^9}, {3.530486238303361*^9, 3.530486240243364*^9}, {
   3.530486952589362*^9, 3.5304870139844484`*^9}, {3.5304870692495255`*^9, 
   3.5304871419796276`*^9}, 3.530487215744731*^9, {3.530487355799927*^9, 
   3.5304873566799283`*^9}, {3.5304874052599964`*^9, 3.530487445625053*^9}, {
   3.530487479950101*^9, 3.5304874842801075`*^9}, {3.5304875702952275`*^9, 
   3.5304875724102306`*^9}, {3.5304876163102922`*^9, 
   3.5304876315153136`*^9}, {3.5312563706495886`*^9, 3.531256451626027*^9}, 
   3.531256559250784*^9, {3.5312719121413507`*^9, 3.5312719878001423`*^9}, {
   3.5312755920427885`*^9, 3.5312755952874546`*^9}, {3.5312856302770605`*^9, 
   3.531285654712197*^9}, {3.53128571933512*^9, 3.531285787002421*^9}, {
   3.5312858245464067`*^9, 3.53128595057763*^9}, {3.5312865586519985`*^9, 
   3.5312865654417615`*^9}, 3.5312884106750765`*^9, 3.5312884470173345`*^9, {
   3.5312884901092978`*^9, 3.5312885050908403`*^9}, {3.5312897715218782`*^9, 
   3.531289778872448*^9}, {3.531289921757907*^9, 3.531289929969715*^9}, {
   3.5312899831061215`*^9, 3.531289984918728*^9}, {3.5312906523184013`*^9, 
   3.5312906554428945`*^9}, {3.5313272051827936`*^9, 
   3.5313272099296193`*^9}, {3.531327286489707*^9, 3.5313272948817744`*^9}, {
   3.531328437394627*^9, 3.5313284476694016`*^9}, {3.531328488668355*^9, 
   3.5313284899702272`*^9}, {3.5313285673514957`*^9, 
   3.5313285721283646`*^9}, {3.531328972333832*^9, 3.5313290468309536`*^9}, 
   3.5313291984689984`*^9, 3.5313298886113744`*^9, {3.5313316869672832`*^9, 
   3.5313316871876*^9}, {3.531333470732211*^9, 3.531333473936819*^9}, {
   3.531334503567355*^9, 3.5313345333702097`*^9}, {3.531334712117235*^9, 
   3.531334724334803*^9}, {3.5313353872780685`*^9, 3.531335388289523*^9}, 
   3.531335434696253*^9, {3.5313387527874336`*^9, 3.5313387613597603`*^9}, {
   3.531339025249214*^9, 3.5313390434353647`*^9}, 3.531341876639312*^9, {
   3.5313421989627905`*^9, 3.531342251227944*^9}, {3.531346616364702*^9, 
   3.531346616715206*^9}, {3.5313466656655936`*^9, 3.5313466801764593`*^9}, {
   3.5315136290734544`*^9, 3.531513629934693*^9}, {3.531605034435397*^9, 
   3.5316050365784783`*^9}, {3.5316052098275986`*^9, 
   3.5316052120307665`*^9}, {3.531605458364978*^9, 3.531605459536662*^9}, {
   3.531699937927347*^9, 3.531699949764368*^9}, {3.531700346314579*^9, 
   3.531700368586605*^9}, {3.533937757524288*^9, 3.5339377669843016`*^9}, {
   3.5339377979043446`*^9, 3.533937819634375*^9}, {3.533938179374879*^9, 
   3.5339381969849033`*^9}, {3.5339382401149635`*^9, 3.533938297835045*^9}, {
   3.533938343125108*^9, 3.53393834467511*^9}, {3.533940711115923*^9, 
   3.533940734385956*^9}, {3.533940828086087*^9, 3.533940838736102*^9}, {
   3.5339509493977776`*^9, 3.533950953016984*^9}, {3.5339537404454803`*^9, 
   3.533953741022681*^9}, 3.5341123221979814`*^9, {3.534112354908027*^9, 
   3.5341124143381104`*^9}, {3.5341132023392134`*^9, 3.5341132204892387`*^9}, 
   3.5341132649293013`*^9, {3.534113300779351*^9, 3.534113329099391*^9}, 
   3.5341133652694416`*^9, 3.5341142271706486`*^9, {3.5345321670477133`*^9, 
   3.534532171965995*^9}, {3.5362786526054916`*^9, 3.5362789025258417`*^9}, 
   3.536278964715928*^9, {3.536280431045983*^9, 3.5362805001260796`*^9}, {
   3.536282251078531*^9, 3.5362822674485536`*^9}, 3.536282315798621*^9, {
   3.539394472692601*^9, 3.539394480494047*^9}, {3.539873240448331*^9, 
   3.5398732425387344`*^9}, {3.5398764447838063`*^9, 3.539876499193883*^9}, {
   3.5398766331940703`*^9, 3.5398766391340785`*^9}, {3.539876715014185*^9, 
   3.539876723554197*^9}, {3.53987682549434*^9, 3.5398768289543447`*^9}, {
   3.539876864374394*^9, 3.539876888614428*^9}, 3.5398769372844963`*^9, {
   3.5398772720149646`*^9, 3.539877285924984*^9}, {3.53987916159761*^9, 
   3.5398791659376163`*^9}, {3.5399079172749767`*^9, 3.539907920534981*^9}, {
   3.539907989705078*^9, 3.5399079959450865`*^9}, {3.5399084131756706`*^9, 
   3.539908413365671*^9}, {3.5399098233376446`*^9, 3.539909825507648*^9}, {
   3.539911719093506*^9, 3.5399117237635126`*^9}, {3.5399117615235653`*^9, 
   3.539911789053604*^9}, {3.539911825573655*^9, 3.539911826853657*^9}, {
   3.5399121026740427`*^9, 3.5399121080540504`*^9}, {3.5400525421824102`*^9, 
   3.540052546452416*^9}, {3.540225445604204*^9, 3.5402254620466332`*^9}, {
   3.540246837799783*^9, 3.5402468548298073`*^9}, 3.540253158138632*^9, {
   3.540258206054838*^9, 3.5402582233148623`*^9}, {3.540258564005339*^9, 
   3.5402585665953426`*^9}, 3.5403195777839775`*^9, 3.5403198886027546`*^9, 
   3.5403200387483425`*^9, {3.54034257060467*^9, 3.540342575644677*^9}, {
   3.540398255328141*^9, 3.540398258401346*^9}, {3.5415590771274023`*^9, 
   3.5415591276558905`*^9}, {3.5416498676490674`*^9, 3.5416498715990725`*^9}, 
   3.541875470169911*^9, {3.5605358410266924`*^9, 3.560535849346704*^9}, 
   3.569695608938452*^9, {3.685766521868433*^9, 3.6857665223564615`*^9}, {
   3.685814676765744*^9, 3.6858146853222337`*^9}, {3.685817453547567*^9, 
   3.6858175185792866`*^9}, {3.6858175674780836`*^9, 3.685817574945511*^9}, {
   3.6858246965328417`*^9, 3.685824741503414*^9}, {3.685845303182884*^9, 
   3.6858453036976852`*^9}, {3.686082506085405*^9, 3.686082506326419*^9}, {
   3.686083482681263*^9, 3.686083482688263*^9}, {3.7152127521728535`*^9, 
   3.71521275683412*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Csch", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", 
           RowBox[{"x_", "^", "n_"}]}]}], "]"}]}]}], ")"}], "^", "p_."}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", "n"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"1", "/", "n"}], "-", "1"}], ")"}]}], "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"Csch", "[", 
              RowBox[{"c", "+", 
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "p"}]}], ",",
         "x"}], "]"}], ",", "x", ",", 
      RowBox[{"x", "^", "n"}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "p"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{
      RowBox[{"1", "/", "n"}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "p", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.495422238811969*^9, 3.5239327382679205`*^9, {3.5241061049829674`*^9, 
   3.5241061158093867`*^9}, {3.5241061634986706`*^9, 3.524106178100296*^9}, {
   3.5241522039971824`*^9, 3.5241522138657465`*^9}, {3.524167459434834*^9, 
   3.524167501524893*^9}, 3.5241675598849745`*^9, {3.5241689646025457`*^9, 
   3.524169057582676*^9}, {3.5241694886052837`*^9, 3.5241694922252893`*^9}, {
   3.5241697349256287`*^9, 3.524169770915679*^9}, {3.524169890175846*^9, 
   3.52416989278585*^9}, {3.5241699517859325`*^9, 3.524169977745969*^9}, {
   3.5241702075262904`*^9, 3.5241702284463196`*^9}, {3.5241703474164867`*^9, 
   3.5241703535564947`*^9}, {3.5241704168565836`*^9, 
   3.5241704281665993`*^9}, {3.5241707090069923`*^9, 3.5241707118469963`*^9}, 
   3.5241707660170727`*^9, {3.5241735897163877`*^9, 3.524173666646496*^9}, {
   3.524173777586651*^9, 3.5241738523767557`*^9}, {3.5241739428768826`*^9, 
   3.524173979156933*^9}, 3.524174297647379*^9, {3.524185483815135*^9, 
   3.524185485365137*^9}, {3.524185602895302*^9, 3.5241856035153027`*^9}, {
   3.5241856771854057`*^9, 3.5241856830554132`*^9}, {3.524185838105631*^9, 
   3.5241858734356804`*^9}, {3.5241859285057573`*^9, 3.524185944045779*^9}, {
   3.524186003185862*^9, 3.524186038265911*^9}, {3.52418611602602*^9, 
   3.5241861192260246`*^9}, 3.524186217346162*^9, 3.5241863019362803`*^9, {
   3.5241863667163706`*^9, 3.5241863784563875`*^9}, {3.52418651596658*^9, 
   3.5241865406766143`*^9}, {3.5241867699369354`*^9, 
   3.5241868085469894`*^9}, {3.5241868836270943`*^9, 3.5241869237971506`*^9}, 
   3.5241869873472395`*^9, {3.5241870885173817`*^9, 3.524187101037399*^9}, {
   3.5241871740575013`*^9, 3.5241871912575254`*^9}, {3.524187306817687*^9, 
   3.5241873162877*^9}, {3.5241873622777643`*^9, 3.524187409757831*^9}, 
   3.524187460357902*^9, {3.5241874977879543`*^9, 3.524187498347955*^9}, {
   3.524187557468038*^9, 3.5241875586680393`*^9}, {3.524187589468083*^9, 
   3.5241875901780834`*^9}, {3.5241876610181828`*^9, 
   3.5241876929782276`*^9}, {3.524187781768352*^9, 3.524187783788355*^9}, {
   3.5241896786382575`*^9, 3.524189683318266*^9}, {3.524234559451813*^9, 
   3.5242346007294855`*^9}, {3.524238368588504*^9, 3.5242383752965155`*^9}, {
   3.5242384122217803`*^9, 3.524238419928194*^9}, {3.5242393344018*^9, 
   3.524239346819422*^9}, {3.5242394127451377`*^9, 3.5242394565500145`*^9}, {
   3.52423959033585*^9, 3.524239629803919*^9}, {3.524239671487192*^9, 
   3.5242397220468807`*^9}, {3.524239788190997*^9, 3.5242398647715316`*^9}, {
   3.5242437175850987`*^9, 3.5242437668343854`*^9}, {3.524244465247612*^9, 
   3.5242444873372507`*^9}, {3.524244751882516*^9, 3.524244753208518*^9}, {
   3.524245115768755*^9, 3.524245137000392*^9}, {3.5242452528149953`*^9, 
   3.5242452554826*^9}, {3.5242456723777323`*^9, 3.5242456731889334`*^9}, {
   3.524245869936479*^9, 3.5242459980595045`*^9}, {3.5242461068384953`*^9, 
   3.5242461450273623`*^9}, {3.524246187958638*^9, 3.52424618922224*^9}, {
   3.5242462316543145`*^9, 3.524246267690378*^9}, {3.5242463181564665`*^9, 
   3.5242463224620743`*^9}, {3.5242485499936485`*^9, 3.524248561823665*^9}, {
   3.524248621593749*^9, 3.5242486251937537`*^9}, {3.5242487642059507`*^9, 
   3.5242487732359633`*^9}, {3.5242532845563993`*^9, 
   3.5242532909524107`*^9}, {3.52425347849594*^9, 3.5242535106475964`*^9}, {
   3.524253596868948*^9, 3.5242536191613874`*^9}, {3.5242537436028056`*^9, 
   3.5242537593588333`*^9}, 3.5242539276207285`*^9, {3.524254113276655*^9, 
   3.5242541142126565`*^9}, {3.5242547334245443`*^9, 3.5242547363105493`*^9}, 
   3.5249480328482866`*^9, 3.5249480870383625`*^9, 3.530383624409831*^9, 
   3.5303836572717104`*^9, {3.5304855821174417`*^9, 3.5304855869274483`*^9}, {
   3.530486056548106*^9, 3.530486059638111*^9}, {3.5304860949231606`*^9, 
   3.5304860971731634`*^9}, {3.530486238303361*^9, 3.530486240243364*^9}, {
   3.530486952589362*^9, 3.5304870139844484`*^9}, {3.5304870692495255`*^9, 
   3.5304871419796276`*^9}, 3.530487215744731*^9, {3.530487355799927*^9, 
   3.5304873566799283`*^9}, {3.5304874052599964`*^9, 3.530487445625053*^9}, {
   3.530487479950101*^9, 3.5304874842801075`*^9}, {3.5304875702952275`*^9, 
   3.5304875724102306`*^9}, {3.5304876163102922`*^9, 
   3.5304876315153136`*^9}, {3.5312563706495886`*^9, 3.531256451626027*^9}, 
   3.531256559250784*^9, {3.5312719121413507`*^9, 3.5312719878001423`*^9}, {
   3.5312755920427885`*^9, 3.5312755952874546`*^9}, {3.5312856302770605`*^9, 
   3.531285654712197*^9}, {3.53128571933512*^9, 3.531285787002421*^9}, {
   3.5312858245464067`*^9, 3.53128595057763*^9}, {3.5312865586519985`*^9, 
   3.5312865654417615`*^9}, 3.5312884106750765`*^9, 3.5312884470173345`*^9, {
   3.5312884901092978`*^9, 3.5312885050908403`*^9}, {3.5312897715218782`*^9, 
   3.531289778872448*^9}, {3.531289921757907*^9, 3.531289929969715*^9}, {
   3.5312899831061215`*^9, 3.531289984918728*^9}, {3.5312906523184013`*^9, 
   3.5312906554428945`*^9}, {3.5313272051827936`*^9, 
   3.5313272099296193`*^9}, {3.531327286489707*^9, 3.5313272948817744`*^9}, {
   3.531328437394627*^9, 3.5313284476694016`*^9}, {3.531328488668355*^9, 
   3.5313284899702272`*^9}, {3.5313285673514957`*^9, 
   3.5313285721283646`*^9}, {3.531328972333832*^9, 3.5313290468309536`*^9}, 
   3.5313291984689984`*^9, 3.5313298886113744`*^9, {3.5313316869672832`*^9, 
   3.5313316871876*^9}, {3.531333470732211*^9, 3.531333473936819*^9}, {
   3.531334503567355*^9, 3.5313345333702097`*^9}, {3.531334712117235*^9, 
   3.531334724334803*^9}, {3.5313353872780685`*^9, 3.531335388289523*^9}, 
   3.531335434696253*^9, {3.5313387527874336`*^9, 3.5313387613597603`*^9}, {
   3.531339025249214*^9, 3.5313390434353647`*^9}, 3.531341876639312*^9, {
   3.5313421989627905`*^9, 3.531342251227944*^9}, {3.531346616364702*^9, 
   3.531346616715206*^9}, {3.5313466656655936`*^9, 3.5313466801764593`*^9}, {
   3.5315136290734544`*^9, 3.531513629934693*^9}, {3.531605034435397*^9, 
   3.5316050365784783`*^9}, {3.5316052098275986`*^9, 
   3.5316052120307665`*^9}, {3.531605458364978*^9, 3.531605459536662*^9}, {
   3.531699937927347*^9, 3.531699949764368*^9}, {3.531700346314579*^9, 
   3.531700368586605*^9}, {3.533937757524288*^9, 3.5339377669843016`*^9}, {
   3.5339377979043446`*^9, 3.533937819634375*^9}, {3.533938179374879*^9, 
   3.5339381969849033`*^9}, {3.5339382401149635`*^9, 3.533938297835045*^9}, {
   3.533938343125108*^9, 3.53393834467511*^9}, {3.533940711115923*^9, 
   3.533940734385956*^9}, {3.533940828086087*^9, 3.533940838736102*^9}, {
   3.5339509493977776`*^9, 3.533950953016984*^9}, {3.5339537404454803`*^9, 
   3.533953741022681*^9}, 3.5341123221979814`*^9, {3.534112354908027*^9, 
   3.5341124143381104`*^9}, {3.5341132023392134`*^9, 3.5341132204892387`*^9}, 
   3.5341132649293013`*^9, {3.534113300779351*^9, 3.534113329099391*^9}, 
   3.5341133652694416`*^9, 3.5341142271706486`*^9, {3.5345321670477133`*^9, 
   3.534532171965995*^9}, {3.5362786526054916`*^9, 3.5362789025258417`*^9}, 
   3.536278964715928*^9, {3.536280431045983*^9, 3.5362805001260796`*^9}, {
   3.536282251078531*^9, 3.5362822674485536`*^9}, 3.536282315798621*^9, {
   3.539394472692601*^9, 3.539394480494047*^9}, {3.539873240448331*^9, 
   3.5398732425387344`*^9}, {3.5398764447838063`*^9, 3.539876499193883*^9}, {
   3.5398766331940703`*^9, 3.5398766391340785`*^9}, {3.539876715014185*^9, 
   3.539876723554197*^9}, {3.53987682549434*^9, 3.5398768289543447`*^9}, {
   3.539876864374394*^9, 3.539876888614428*^9}, 3.5398769372844963`*^9, {
   3.5398772720149646`*^9, 3.539877285924984*^9}, {3.53987916159761*^9, 
   3.5398791659376163`*^9}, {3.5399079172749767`*^9, 3.539907920534981*^9}, {
   3.539907989705078*^9, 3.5399079959450865`*^9}, {3.5399084131756706`*^9, 
   3.539908413365671*^9}, {3.5399098233376446`*^9, 3.539909825507648*^9}, {
   3.539911719093506*^9, 3.5399117237635126`*^9}, {3.5399117615235653`*^9, 
   3.539911789053604*^9}, {3.539911825573655*^9, 3.539911826853657*^9}, {
   3.5399121026740427`*^9, 3.5399121080540504`*^9}, {3.5400525421824102`*^9, 
   3.540052546452416*^9}, {3.540225445604204*^9, 3.5402254620466332`*^9}, {
   3.540246837799783*^9, 3.5402468548298073`*^9}, 3.540253158138632*^9, {
   3.540258206054838*^9, 3.5402582233148623`*^9}, {3.540258564005339*^9, 
   3.5402585665953426`*^9}, 3.5403195777839775`*^9, 3.5403198886027546`*^9, 
   3.5403200387483425`*^9, {3.54034257060467*^9, 3.540342575644677*^9}, {
   3.540398255328141*^9, 3.540398258401346*^9}, {3.5415590771274023`*^9, 
   3.5415591276558905`*^9}, {3.5416498676490674`*^9, 3.5416498715990725`*^9}, 
   3.541875470169911*^9, {3.5605358410266924`*^9, 3.560535849346704*^9}, 
   3.569695608938452*^9, {3.685766521868433*^9, 3.6857665223564615`*^9}, {
   3.685814676765744*^9, 3.6858146853222337`*^9}, {3.685817453547567*^9, 
   3.6858175185792866`*^9}, {3.6858175674780836`*^9, 3.685817574945511*^9}, {
   3.6858246965328417`*^9, 3.6858247677889175`*^9}, 3.6858453089704947`*^9, {
   3.6860825269125957`*^9, 3.686082527470628*^9}, {3.6860834981161456`*^9, 
   3.686083498123146*^9}, 3.715212761472385*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["X:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sech", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", 
           SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.541554026372131*^9, 3.5415540329709425`*^9}, {3.541554090269843*^9, 
   3.5415540937486486`*^9}, {3.5415541788779984`*^9, 
   3.5415541845564084`*^9}, {3.5415542699197583`*^9, 
   3.5415542699197583`*^9}, {3.5415545113613825`*^9, 3.541554511548583*^9}, {
   3.541554961468973*^9, 3.5415549756805983`*^9}, {3.5416447241018667`*^9, 
   3.541644753441908*^9}, {3.541644874612077*^9, 3.541644887622095*^9}, {
   3.5416450613923388`*^9, 3.5416450613923388`*^9}, {3.5416475854658723`*^9, 
   3.541647600335893*^9}, 3.541651849261842*^9, {3.560538025569751*^9, 
   3.560538025749751*^9}, 3.5605380751598206`*^9, {3.685764327542925*^9, 
   3.685764343098815*^9}, {3.6858163279191847`*^9, 3.6858163279191847`*^9}, {
   3.6858225110038366`*^9, 3.685822514101014*^9}, {3.6858248618302965`*^9, 
   3.6858248620153074`*^9}, 3.685825042794647*^9, 3.686082506556432*^9, 
   3.686082903612142*^9, 3.6860834826962633`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.495391733731629*^9, 3.495391739521637*^9}, {3.495678797624714*^9, 
   3.4956788080547285`*^9}, 3.4956788502147875`*^9, {3.4956789897249827`*^9, 
   3.495679002425001*^9}, {3.495679072285098*^9, 3.4956790738051004`*^9}, {
   3.495679236085328*^9, 3.495679236315328*^9}, {3.49567937329552*^9, 
   3.4956794246455917`*^9}, {3.495679535505747*^9, 3.495679554085773*^9}, {
   3.5193214041603594`*^9, 3.5193214071867647`*^9}, {3.5193301244794507`*^9, 
   3.5193301257494526`*^9}, 3.5193476221390333`*^9, 3.5193479662828407`*^9, {
   3.5193485103181963`*^9, 3.5193485549498744`*^9}, {3.519663663325344*^9, 
   3.5196636652216225`*^9}, {3.519680530562682*^9, 3.519680530562682*^9}, {
   3.5197556284379497`*^9, 3.5197556284379497`*^9}, {3.5197580987514877`*^9, 
   3.519758100545491*^9}, {3.5197581334459496`*^9, 3.519758155582388*^9}, {
   3.519758193256454*^9, 3.5197582684329863`*^9}, {3.5197584793297567`*^9, 
   3.519758583210339*^9}, {3.5197800633332853`*^9, 3.519780130444603*^9}, 
   3.519780263762437*^9, {3.519780890789939*^9, 3.519780929602807*^9}, 
   3.5197826749958725`*^9, {3.5213126916874757`*^9, 3.5213126916874757`*^9}, {
   3.521328242751012*^9, 3.521328242751012*^9}, {3.532302339923381*^9, 
   3.5323023440533867`*^9}, {3.5323027369539366`*^9, 
   3.5323027369539366`*^9}, {3.5326362525142794`*^9, 
   3.5326362612742915`*^9}, {3.534962194665309*^9, 3.5349622042053223`*^9}, {
   3.5349623337055035`*^9, 3.5349623339155035`*^9}, {3.5349625695458336`*^9, 
   3.5349625695458336`*^9}, {3.5349651959395103`*^9, 
   3.5349652008995175`*^9}, {3.534966956776985*^9, 3.5349669586769876`*^9}, {
   3.534974691448103*^9, 3.5349746956381083`*^9}, {3.534975450099165*^9, 
   3.534975450099165*^9}, {3.5416444623515*^9, 3.5416444623515*^9}, {
   3.5416447832619495`*^9, 3.5416447832619495`*^9}, {3.5416448932321033`*^9, 
   3.5416448932321033`*^9}, {3.5416450201822805`*^9, 
   3.5416450549723296`*^9}, {3.541647604455899*^9, 3.5416476054759007`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sech", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", 
          SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Sech", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", " ", 
              SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 
   3.4978101470356674`*^9}, {3.497810228295781*^9, 3.497810232715788*^9}, 
   3.497810535736212*^9, {3.5415550260686865`*^9, 3.541555037893507*^9}, {
   3.541644759091915*^9, 3.5416447617719193`*^9}, {3.5416518628618608`*^9, 
   3.5416518649018636`*^9}, {3.685764343626845*^9, 3.6857643441298738`*^9}, {
   3.6858225276087866`*^9, 3.685822531921033*^9}, {3.685824865399501*^9, 
   3.685824867695632*^9}, {3.6860825068284473`*^9, 3.6860825071644664`*^9}, {
   3.686083482710264*^9, 3.686083482717265*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Sech", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", 
           RowBox[{"x_", "^", "n_"}]}]}], "]"}]}]}], ")"}], "^", "p_."}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"Sech", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", 
            RowBox[{"x", "^", "n"}]}]}], "]"}]}]}], ")"}], "^", "p"}], ",", 
     "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n", ",", "p"}], "}"}], 
     ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 
   3.497810442686082*^9, {3.541554243462112*^9, 3.541554250154524*^9}, {
   3.541555044039918*^9, 3.541555107157629*^9}, {3.541644789891958*^9, 
   3.5416447903319592`*^9}, {3.541644910332127*^9, 3.5416449689922094`*^9}, {
   3.541645076192359*^9, 3.5416451034423976`*^9}, 3.5416476094459057`*^9, 
   3.541649758068914*^9, {3.541651868011868*^9, 3.541651884451891*^9}, 
   3.5605378485895033`*^9, {3.685764344682905*^9, 3.685764345178934*^9}, {
   3.685822549117017*^9, 3.68582257452247*^9}, {3.6858248704307885`*^9, 
   3.685824883232521*^9}, {3.686082507461484*^9, 3.6860825077254987`*^9}, {
   3.686083482724265*^9, 3.6860834827302656`*^9}, 3.7123384375435486`*^9, 
   3.7156171764433675`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Csch", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", 
           RowBox[{"x_", "^", "n_"}]}]}], "]"}]}]}], ")"}], "^", "p_."}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"Csch", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", 
            RowBox[{"x", "^", "n"}]}]}], "]"}]}]}], ")"}], "^", "p"}], ",", 
     "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n", ",", "p"}], "}"}], 
     ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 
   3.497810442686082*^9, {3.541554243462112*^9, 3.541554250154524*^9}, {
   3.541555044039918*^9, 3.541555107157629*^9}, {3.541644789891958*^9, 
   3.5416447903319592`*^9}, {3.541644910332127*^9, 3.5416449689922094`*^9}, {
   3.541645076192359*^9, 3.5416451034423976`*^9}, 3.5416476094459057`*^9, 
   3.541649758068914*^9, {3.541651868011868*^9, 3.541651884451891*^9}, 
   3.5605378485895033`*^9, {3.685764344682905*^9, 3.685764345178934*^9}, {
   3.685822549117017*^9, 3.685822591096418*^9}, {3.6858248726949177`*^9, 
   3.685824878899273*^9}, {3.686082527981657*^9, 3.686082528349678*^9}, {
   3.6860834981301465`*^9, 3.686083498137147*^9}, 3.7123384375525494`*^9, 
   3.715617179234527*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["S:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sech", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", 
           SuperscriptBox["u", "n"]}]}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{"u", "\[Equal]", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}]}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.519414342899901*^9, 3.519414474720132*^9}, {
   3.5197939535480833`*^9, 3.5197939539380836`*^9}, {3.5197940297698174`*^9, 
   3.5197940299726176`*^9}, 3.519795153580191*^9, {3.5200103027397947`*^9, 
   3.5200103044997973`*^9}, {3.5232186878169007`*^9, 
   3.5232186881569014`*^9}, {3.5232193955778913`*^9, 
   3.5232193955778913`*^9}, {3.5233166487845354`*^9, 
   3.5233166487845354`*^9}, {3.5233167010346084`*^9, 
   3.5233167010346084`*^9}, {3.523318546315711*^9, 3.523318573368556*^9}, {
   3.5239220709492664`*^9, 3.5239220924617043`*^9}, {3.5239221279205666`*^9, 
   3.5239221365629816`*^9}, {3.523930270899587*^9, 3.523930270899587*^9}, {
   3.5240761703528385`*^9, 3.5240761703528385`*^9}, {3.52407843124921*^9, 
   3.5240784332304134`*^9}, {3.5240784932749186`*^9, 
   3.5240784932749186`*^9}, {3.524079230095413*^9, 3.524079246553442*^9}, {
   3.5240858499762287`*^9, 3.524085860178646*^9}, {3.524085945261196*^9, 
   3.524085945261196*^9}, {3.5242763399632483`*^9, 3.5242763411488504`*^9}, {
   3.5242771575294847`*^9, 3.5242771578102846`*^9}, {3.530500224433988*^9, 
   3.530500225113989*^9}, {3.5313467876910577`*^9, 3.5313467883119507`*^9}, {
   3.5332231066826243`*^9, 3.5332231066826243`*^9}, {3.5332248881251183`*^9, 
   3.533224890245121*^9}, {3.5361011385491977`*^9, 3.5361011394332485`*^9}, {
   3.5363501469745007`*^9, 3.5363501506345057`*^9}, {3.5363617411167684`*^9, 
   3.5363617534067855`*^9}, {3.536366615151597*^9, 3.5363666230616083`*^9}, {
   3.5363667754518213`*^9, 3.5363667821318307`*^9}, {3.536366906722005*^9, 
   3.536366922022027*^9}, {3.536596861742076*^9, 3.5365968701504908`*^9}, {
   3.5366042542749715`*^9, 3.536604254462172*^9}, {3.536625554425806*^9, 
   3.536625554775807*^9}, {3.5366276426139326`*^9, 3.536627642853933*^9}, {
   3.536629402336396*^9, 3.536629402746397*^9}, {3.5366940603006477`*^9, 
   3.536694061273703*^9}, {3.5366943323932104`*^9, 3.536694332661226*^9}, {
   3.536694390476533*^9, 3.536694402176202*^9}, {3.5368634751022315`*^9, 
   3.5368634756170325`*^9}, {3.536980474148706*^9, 3.5369804925387316`*^9}, {
   3.536980525228778*^9, 3.5369805352787914`*^9}, 3.5494761927292957`*^9, {
   3.5693730855884085`*^9, 3.5693730964320283`*^9}, {3.5694290956203146`*^9, 
   3.569429097200317*^9}, {3.5694291331103673`*^9, 3.56942920669047*^9}, {
   3.5694293707907*^9, 3.5694293730307035`*^9}, {3.5694297630412493`*^9, 
   3.5694297703712597`*^9}, {3.5718789276748276`*^9, 3.571878928324829*^9}, {
   3.5721097180632076`*^9, 3.572109718283208*^9}, 3.5758232222473235`*^9, {
   3.5764412692291803`*^9, 3.5764412896692085`*^9}, {3.6857596258150015`*^9, 
   3.6857596277361116`*^9}, {3.6857596722706585`*^9, 
   3.6857596904346976`*^9}, {3.685760350420447*^9, 3.6857603520845423`*^9}, 
   3.6857647089067383`*^9, {3.6858242023815784`*^9, 3.685824205796774*^9}, {
   3.685824281907127*^9, 3.6858242833722105`*^9}, 3.686082508012515*^9, 
   3.6860829041051702`*^9, 3.6860834827392664`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495840214754669*^9, {3.4958483177760134`*^9, 
   3.495848318886015*^9}, {3.495925911922002*^9, 3.495925920122013*^9}, 
   3.4961847242848682`*^9, 3.496184957525194*^9, 3.496188449500083*^9, 
   3.4961908979261436`*^9, 3.4961924998683863`*^9, 3.4961928754389124`*^9, {
   3.51849075797458*^9, 3.5184907698562593`*^9}, {3.56937339612417*^9, 
   3.569373402061509*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"u", "\[Equal]", 
   RowBox[{"e", "+", 
    RowBox[{"f", " ", "x"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.495391630941485*^9, 3.4953916682515373`*^9}, 
   3.495398892616804*^9, {3.495402251391507*^9, 3.4954022711315346`*^9}, {
   3.495488783827441*^9, 3.4954888500775337`*^9}, {3.4954889799777155`*^9, 
   3.495489009627757*^9}, {3.495489141407942*^9, 3.495489151717956*^9}, {
   3.495489235178073*^9, 3.495489239268079*^9}, {3.495489386068284*^9, 
   3.4954894212383337`*^9}, {3.495489464438394*^9, 3.4954894647383947`*^9}, {
   3.495489500148444*^9, 3.4954895034984484`*^9}, {3.4954897331687703`*^9, 
   3.495489780118836*^9}, {3.495493913565876*^9, 3.495493935715907*^9}, {
   3.495494084919718*^9, 3.4954941083997507`*^9}, 3.495494511560315*^9, {
   3.495494580840412*^9, 3.4954945834404163`*^9}, {3.495494615970462*^9, 
   3.495494740200636*^9}, {3.495494880710832*^9, 3.4954948880508423`*^9}, {
   3.4954949819649754`*^9, 3.495494999445*^9}, {3.495495046515066*^9, 
   3.495495072875103*^9}, {3.4954951239351745`*^9, 3.4954951241651745`*^9}, {
   3.4954953673051157`*^9, 3.4954953726551237`*^9}, {3.495495450474448*^9, 
   3.495495453173253*^9}, {3.495495542140209*^9, 3.495495583792282*^9}, {
   3.4954957431465626`*^9, 3.4954957746118174`*^9}, {3.495495914419263*^9, 
   3.495495917804469*^9}, {3.495495955322535*^9, 3.4954960459586945`*^9}, {
   3.495496189588146*^9, 3.4954961923181515`*^9}, {3.4954973384365644`*^9, 
   3.495497357577798*^9}, {3.5240858715198665`*^9, 3.52408591925595*^9}, {
   3.5331536712917595`*^9, 3.5331536971617956`*^9}, {3.533223063022563*^9, 
   3.5332230658125668`*^9}, {3.533224894045127*^9, 3.5332248954551287`*^9}, 
   3.5363501685345306`*^9, {3.538444353705845*^9, 3.5384443676658645`*^9}, {
   3.5499343655595293`*^9, 3.549934366379531*^9}, {3.5693429326149015`*^9, 
   3.5693429326149015`*^9}, {3.5693448172975397`*^9, 
   3.5693448172975397`*^9}, {3.5693533761948233`*^9, 
   3.5693533761948233`*^9}, {3.5694292380705137`*^9, 
   3.5694292380705137`*^9}, {3.5694293798207126`*^9, 
   3.5694293798207126`*^9}, {3.685760366500366*^9, 3.685760366500366*^9}, {
   3.6858242876184535`*^9, 3.6858242876184535`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sech", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", 
          SuperscriptBox["u", "n"]}]}], "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", "f"]}]}], 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Sech", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", " ", 
              SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", "u"}], 
    "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.4953915848214207`*^9, 
   3.495391696001576*^9, {3.495401987881138*^9, 3.49540199674115*^9}, {
   3.495402119591322*^9, 3.4954021482513623`*^9}, {3.4954887467773895`*^9, 
   3.4954887749874287`*^9}, 3.495488944397666*^9, 3.495489263778113*^9, 
   3.4954893636582527`*^9, 3.4954898177188883`*^9, 3.495489875358969*^9, 
   3.495493833545764*^9, 3.495493864175807*^9, 3.4954940303560395`*^9, 
   3.4954941516698112`*^9, 3.4954942700599775`*^9, 3.4954948473707857`*^9, {
   3.495495264965372*^9, 3.4954952782653904`*^9}, {3.4954956850364604`*^9, 
   3.4954957088577023`*^9}, {3.495495865341577*^9, 3.4954958884920177`*^9}, {
   3.495496084225561*^9, 3.4954961029143944`*^9}, {3.495496211459385*^9, 
   3.4954962213810024`*^9}, 3.495496440218187*^9, {3.495497026732417*^9, 
   3.4954970596328745`*^9}, {3.495497256957621*^9, 3.495497302338101*^9}, 
   3.533151648818928*^9, 3.5331516797189713`*^9, 3.533151717349024*^9, {
   3.5331518776292486`*^9, 3.533151970249378*^9}, {3.5331520176994443`*^9, 
   3.5331520227894516`*^9}, {3.533152054329496*^9, 3.5331520626995077`*^9}, 
   3.533152270349798*^9, {3.533153065130911*^9, 3.5331530971109557`*^9}, 
   3.53315335008131*^9, {3.5331535194015465`*^9, 3.5331535356615696`*^9}, 
   3.5331536017616625`*^9, {3.533221927890974*^9, 3.533221930830978*^9}, {
   3.533222264011444*^9, 3.533222283731472*^9}, {3.5332223304615374`*^9, 
   3.5332223353515444`*^9}, 3.5363501604045196`*^9, {3.536361767566806*^9, 
   3.5363617697768087`*^9}, {3.5363666287016163`*^9, 
   3.5363666313816195`*^9}, {3.536366784271834*^9, 3.5363667868618374`*^9}, {
   3.536366923782029*^9, 3.5363669254320316`*^9}, {3.5365968786057057`*^9, 
   3.536596881944112*^9}, {3.5366940930205193`*^9, 3.53669410440917*^9}, {
   3.5366942507975435`*^9, 3.536694251403578*^9}, {3.536694493325415*^9, 
   3.536694495295528*^9}, 3.536980387788585*^9, 3.536980543328803*^9, {
   3.536980609078895*^9, 3.536980616128905*^9}, 3.569373228563586*^9, {
   3.5693732781084194`*^9, 3.5693732838917503`*^9}, {3.569373320190827*^9, 
   3.569373349338494*^9}, 3.5694292616405473`*^9, {3.56942930674061*^9, 
   3.56942932830064*^9}, {3.569429835711351*^9, 3.5694298386013546`*^9}, 
   3.5694300784416904`*^9, {3.576441301149225*^9, 3.5764413105992384`*^9}, {
   3.685759744579795*^9, 3.685759754333352*^9}, 3.6857603801171455`*^9, {
   3.6857647098437915`*^9, 3.6857647102908173`*^9}, {3.6858242261119356`*^9, 
   3.685824253779518*^9}, 3.685824291163656*^9, {3.6860825089325676`*^9, 
   3.6860825093885937`*^9}, {3.6860834827542667`*^9, 3.6860834827612677`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Sech", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", 
           RowBox[{"u_", "^", "n_"}]}]}], "]"}]}]}], ")"}], "^", "p_."}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"Coefficient", "[", 
      RowBox[{"u", ",", "x", ",", "1"}], "]"}]}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Sech", "[", 
             RowBox[{"c", "+", 
              RowBox[{"d", "*", 
               RowBox[{"x", "^", "n"}]}]}], "]"}]}]}], ")"}], "^", "p"}], ",",
         "x"}], "]"}], ",", "x", ",", "u"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n", ",", "p"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"LinearQ", "[", 
     RowBox[{"u", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"u", ",", "x"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4954018196509027`*^9, {3.495401867050969*^9, 3.4954018672609687`*^9}, {
   3.4954022872215567`*^9, 3.4954022882115583`*^9}, 3.495488713187342*^9, 
   3.4954889210576334`*^9, 3.4954892270180616`*^9, 3.4954893399982195`*^9, {
   3.4954894833184204`*^9, 3.495489485938424*^9}, 3.4954897194087505`*^9, 
   3.495493755131653*^9, {3.4954938826158323`*^9, 3.495493884975836*^9}, 
   3.4954939962159915`*^9, {3.4954942766399865`*^9, 3.4954942945800114`*^9}, 
   3.4954948208307486`*^9, {3.495495087335123*^9, 3.495495087705124*^9}, 
   3.4954951805652537`*^9, 3.495495346275087*^9, 3.495495665489626*^9, 
   3.4954958533919563`*^9, {3.49549609483358*^9, 3.495496110792408*^9}, 
   3.4954961789333277`*^9, 3.495497173544275*^9, {3.495681286888199*^9, 
   3.4956812892482023`*^9}, {3.5240859566180162`*^9, 3.52408598201486*^9}, {
   3.524086057533393*^9, 3.524086058937395*^9}, {3.5242757161181526`*^9, 
   3.5242757216717625`*^9}, {3.5242763445964565`*^9, 
   3.5242763477320623`*^9}, {3.5331525961202545`*^9, 3.533152618700286*^9}, {
   3.5331527018704023`*^9, 3.5331528058905478`*^9}, {3.533153282981216*^9, 
   3.5331533342812877`*^9}, {3.533153565251611*^9, 3.533153599281659*^9}, {
   3.5332224159616575`*^9, 3.533222435081684*^9}, {3.5332224656717267`*^9, 
   3.533222494301767*^9}, {3.533223281652869*^9, 3.53322331799292*^9}, {
   3.5332234651831264`*^9, 3.5332234684731307`*^9}, {3.533223854473671*^9, 
   3.5332238609936805`*^9}, {3.5332239572838154`*^9, 3.5332239599938188`*^9}, 
   3.533224847425061*^9, {3.5332249144151554`*^9, 3.533224915905157*^9}, 
   3.533246982034763*^9, 3.5332605459462523`*^9, {3.536350185774555*^9, 
   3.536350207334585*^9}, {3.5363506584052167`*^9, 3.5363506914352627`*^9}, {
   3.5363508662655077`*^9, 3.5363509090255675`*^9}, {3.5363510097557087`*^9, 
   3.5363510569557743`*^9}, {3.5363512834660916`*^9, 3.536351309536128*^9}, {
   3.5363515550764723`*^9, 3.5363516176765594`*^9}, {3.5363516722566357`*^9, 
   3.5363516724366364`*^9}, {3.536356352083194*^9, 3.536356353383196*^9}, {
   3.5363617881968346`*^9, 3.536361833056897*^9}, {3.536366667801671*^9, 
   3.5363667247217503`*^9}, {3.5363667904918423`*^9, 3.536366799971856*^9}, {
   3.536366941382054*^9, 3.536366980882109*^9}, {3.5365968943773336`*^9, 
   3.536596936123007*^9}, {3.536596976558278*^9, 3.536597025589164*^9}, 
   3.536602461258152*^9, {3.5366940777176437`*^9, 3.5366940881722417`*^9}, 
   3.5366943020244737`*^9, {3.536694516327731*^9, 3.5366945346767807`*^9}, {
   3.5369801281282215`*^9, 3.5369801381582355`*^9}, 3.536980329338503*^9, {
   3.53698041236862*^9, 3.5369804166186256`*^9}, {3.5369806567789617`*^9, 
   3.536980699209021*^9}, 3.5494761881292896`*^9, {3.5693731131899867`*^9, 
   3.569373146310881*^9}, {3.5693734415897703`*^9, 3.5693734426378303`*^9}, 
   3.5693734893805037`*^9, 3.569377788480149*^9, {3.569429350000671*^9, 
   3.5694293589406834`*^9}, {3.569429389420726*^9, 3.569429457880822*^9}, 
   3.5694296610911064`*^9, {3.569429848611369*^9, 3.5694298609013863`*^9}, 
   3.569431373653504*^9, 3.5694395479239507`*^9, 3.5725322157525206`*^9, {
   3.576441348559291*^9, 3.576441380744336*^9}, {3.6857597978148394`*^9, 
   3.685759818292011*^9}, {3.6857598618545027`*^9, 3.685759881729639*^9}, {
   3.685764710852849*^9, 3.6857647113168755`*^9}, {3.6858243273077235`*^9, 
   3.685824408211351*^9}, 3.68589891601515*^9, {3.6860825099346247`*^9, 
   3.6860825103656497`*^9}, {3.6860834827682676`*^9, 3.6860834827752686`*^9}, 
   3.7061412182977276`*^9, 3.7152127667746887`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Csch", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", 
           RowBox[{"u_", "^", "n_"}]}]}], "]"}]}]}], ")"}], "^", "p_."}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"Coefficient", "[", 
      RowBox[{"u", ",", "x", ",", "1"}], "]"}]}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Csch", "[", 
             RowBox[{"c", "+", 
              RowBox[{"d", "*", 
               RowBox[{"x", "^", "n"}]}]}], "]"}]}]}], ")"}], "^", "p"}], ",",
         "x"}], "]"}], ",", "x", ",", "u"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n", ",", "p"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"LinearQ", "[", 
     RowBox[{"u", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"u", ",", "x"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4954018196509027`*^9, {3.495401867050969*^9, 3.4954018672609687`*^9}, {
   3.4954022872215567`*^9, 3.4954022882115583`*^9}, 3.495488713187342*^9, 
   3.4954889210576334`*^9, 3.4954892270180616`*^9, 3.4954893399982195`*^9, {
   3.4954894833184204`*^9, 3.495489485938424*^9}, 3.4954897194087505`*^9, 
   3.495493755131653*^9, {3.4954938826158323`*^9, 3.495493884975836*^9}, 
   3.4954939962159915`*^9, {3.4954942766399865`*^9, 3.4954942945800114`*^9}, 
   3.4954948208307486`*^9, {3.495495087335123*^9, 3.495495087705124*^9}, 
   3.4954951805652537`*^9, 3.495495346275087*^9, 3.495495665489626*^9, 
   3.4954958533919563`*^9, {3.49549609483358*^9, 3.495496110792408*^9}, 
   3.4954961789333277`*^9, 3.495497173544275*^9, {3.495681286888199*^9, 
   3.4956812892482023`*^9}, {3.5240859566180162`*^9, 3.52408598201486*^9}, {
   3.524086057533393*^9, 3.524086058937395*^9}, {3.5242757161181526`*^9, 
   3.5242757216717625`*^9}, {3.5242763445964565`*^9, 
   3.5242763477320623`*^9}, {3.5331525961202545`*^9, 3.533152618700286*^9}, {
   3.5331527018704023`*^9, 3.5331528058905478`*^9}, {3.533153282981216*^9, 
   3.5331533342812877`*^9}, {3.533153565251611*^9, 3.533153599281659*^9}, {
   3.5332224159616575`*^9, 3.533222435081684*^9}, {3.5332224656717267`*^9, 
   3.533222494301767*^9}, {3.533223281652869*^9, 3.53322331799292*^9}, {
   3.5332234651831264`*^9, 3.5332234684731307`*^9}, {3.533223854473671*^9, 
   3.5332238609936805`*^9}, {3.5332239572838154`*^9, 3.5332239599938188`*^9}, 
   3.533224847425061*^9, {3.5332249144151554`*^9, 3.533224915905157*^9}, 
   3.533246982034763*^9, 3.5332605459462523`*^9, {3.536350185774555*^9, 
   3.536350207334585*^9}, {3.5363506584052167`*^9, 3.5363506914352627`*^9}, {
   3.5363508662655077`*^9, 3.5363509090255675`*^9}, {3.5363510097557087`*^9, 
   3.5363510569557743`*^9}, {3.5363512834660916`*^9, 3.536351309536128*^9}, {
   3.5363515550764723`*^9, 3.5363516176765594`*^9}, {3.5363516722566357`*^9, 
   3.5363516724366364`*^9}, {3.536356352083194*^9, 3.536356353383196*^9}, {
   3.5363617881968346`*^9, 3.536361833056897*^9}, {3.536366667801671*^9, 
   3.5363667247217503`*^9}, {3.5363667904918423`*^9, 3.536366799971856*^9}, {
   3.536366941382054*^9, 3.536366980882109*^9}, {3.5365968943773336`*^9, 
   3.536596936123007*^9}, {3.536596976558278*^9, 3.536597025589164*^9}, 
   3.536602461258152*^9, {3.5366940777176437`*^9, 3.5366940881722417`*^9}, 
   3.5366943020244737`*^9, {3.536694516327731*^9, 3.5366945346767807`*^9}, {
   3.5369801281282215`*^9, 3.5369801381582355`*^9}, 3.536980329338503*^9, {
   3.53698041236862*^9, 3.5369804166186256`*^9}, {3.5369806567789617`*^9, 
   3.536980699209021*^9}, 3.5494761881292896`*^9, {3.5693731131899867`*^9, 
   3.569373146310881*^9}, {3.5693734415897703`*^9, 3.5693734426378303`*^9}, 
   3.5693734893805037`*^9, 3.569377788480149*^9, {3.569429350000671*^9, 
   3.5694293589406834`*^9}, {3.569429389420726*^9, 3.569429457880822*^9}, 
   3.5694296610911064`*^9, {3.569429848611369*^9, 3.5694298609013863`*^9}, 
   3.569431373653504*^9, 3.5694395479239507`*^9, 3.5725322157525206`*^9, {
   3.576441348559291*^9, 3.576441380744336*^9}, {3.6857597978148394`*^9, 
   3.685759818292011*^9}, {3.6857598618545027`*^9, 3.685759881729639*^9}, {
   3.685764710852849*^9, 3.6857647113168755`*^9}, {3.6858243273077235`*^9, 
   3.685824428508512*^9}, 3.685898919962376*^9, {3.68608252890271*^9, 
   3.686082529277731*^9}, {3.686083498144147*^9, 3.6860834981501474`*^9}, 
   3.706141218307728*^9, 3.7152127683337774`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{
  3.4796643211106243`*^9, {3.536351324436149*^9, 3.536351326496152*^9}, {
   3.5363515481064625`*^9, 3.536351548866463*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["N:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sech", "[", "u", "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{"u", "\[Equal]", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        SuperscriptBox["x", "n"]}]}]}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.519414342899901*^9, 3.519414474720132*^9}, {
   3.5197939535480833`*^9, 3.5197939539380836`*^9}, {3.5197940297698174`*^9, 
   3.5197940299726176`*^9}, 3.519795153580191*^9, {3.5200103027397947`*^9, 
   3.5200103044997973`*^9}, {3.5232186878169007`*^9, 
   3.5232186881569014`*^9}, {3.5232193955778913`*^9, 
   3.5232193955778913`*^9}, {3.5233166487845354`*^9, 
   3.5233166487845354`*^9}, {3.5233167010346084`*^9, 
   3.5233167010346084`*^9}, {3.523318546315711*^9, 3.523318573368556*^9}, {
   3.5239220709492664`*^9, 3.5239220924617043`*^9}, {3.5239221279205666`*^9, 
   3.5239221365629816`*^9}, {3.523930270899587*^9, 3.523930270899587*^9}, {
   3.5240761703528385`*^9, 3.5240761703528385`*^9}, {3.52407843124921*^9, 
   3.5240784332304134`*^9}, {3.5240784932749186`*^9, 
   3.5240784932749186`*^9}, {3.524079230095413*^9, 3.524079246553442*^9}, {
   3.5240858499762287`*^9, 3.524085860178646*^9}, {3.524085945261196*^9, 
   3.524085945261196*^9}, {3.5242763399632483`*^9, 3.5242763411488504`*^9}, {
   3.5242771575294847`*^9, 3.5242771578102846`*^9}, {3.530500224433988*^9, 
   3.530500225113989*^9}, {3.5313467876910577`*^9, 3.5313467883119507`*^9}, {
   3.5332231066826243`*^9, 3.5332231066826243`*^9}, {3.5332248881251183`*^9, 
   3.533224890245121*^9}, {3.5361011385491977`*^9, 3.5361011394332485`*^9}, {
   3.5363501469745007`*^9, 3.5363501506345057`*^9}, {3.5363617411167684`*^9, 
   3.5363617534067855`*^9}, {3.536366615151597*^9, 3.5363666230616083`*^9}, {
   3.5363667754518213`*^9, 3.5363667821318307`*^9}, {3.536366906722005*^9, 
   3.536366922022027*^9}, {3.536596861742076*^9, 3.5365968701504908`*^9}, {
   3.5366042542749715`*^9, 3.536604254462172*^9}, {3.536625554425806*^9, 
   3.536625554775807*^9}, {3.5366276426139326`*^9, 3.536627642853933*^9}, {
   3.536629402336396*^9, 3.536629402746397*^9}, {3.5366940603006477`*^9, 
   3.536694061273703*^9}, {3.5366943323932104`*^9, 3.536694332661226*^9}, {
   3.536694390476533*^9, 3.536694402176202*^9}, {3.5368634751022315`*^9, 
   3.5368634756170325`*^9}, {3.536980474148706*^9, 3.5369804925387316`*^9}, {
   3.5369807910591497`*^9, 3.5369808136991816`*^9}, 3.538443999546241*^9, {
   3.538444040229568*^9, 3.5384440801737804`*^9}, {3.544471201864182*^9, 
   3.5444712020241823`*^9}, {3.5499343621399236`*^9, 
   3.5499343628887253`*^9}, {3.5693429012648573`*^9, 3.569342923814889*^9}, {
   3.5693432071452856`*^9, 3.5693432074652863`*^9}, {3.569351915062778*^9, 
   3.569351927142795*^9}, {3.569431211483277*^9, 3.569431211683277*^9}, 
   3.5757865832172976`*^9, {3.5763466442642536`*^9, 3.5763467017043343`*^9}, {
   3.576346758794414*^9, 3.576346766914425*^9}, 3.5763484755768175`*^9, {
   3.685762402740833*^9, 3.685762437184803*^9}, {3.6857626559973183`*^9, 
   3.685762656409342*^9}, 3.6857631655784645`*^9, {3.685823800238577*^9, 
   3.6858238243419557`*^9}, {3.685824108197191*^9, 3.6858241084112034`*^9}, 
   3.686082511212698*^9, 3.6860829045831976`*^9, 3.686083482784269*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic normalization", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495840214754669*^9, {3.4958483177760134`*^9, 
   3.495848318886015*^9}, {3.495925911922002*^9, 3.495925920122013*^9}, 
   3.4961847242848682`*^9, 3.496184957525194*^9, 3.496188449500083*^9, 
   3.4961908979261436`*^9, 3.4961924998683863`*^9, 3.4961928754389124`*^9, {
   3.51849075797458*^9, 3.5184907698562593`*^9}, {3.574710513759987*^9, 
   3.5747105160099897`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"u", "\[Equal]", 
   RowBox[{"c", "+", 
    RowBox[{"d", " ", 
     SuperscriptBox["x", "n"]}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.495391630941485*^9, 3.4953916682515373`*^9}, 
   3.495398892616804*^9, {3.495402251391507*^9, 3.4954022711315346`*^9}, {
   3.495488783827441*^9, 3.4954888500775337`*^9}, {3.4954889799777155`*^9, 
   3.495489009627757*^9}, {3.495489141407942*^9, 3.495489151717956*^9}, {
   3.495489235178073*^9, 3.495489239268079*^9}, {3.495489386068284*^9, 
   3.4954894212383337`*^9}, {3.495489464438394*^9, 3.4954894647383947`*^9}, {
   3.495489500148444*^9, 3.4954895034984484`*^9}, {3.4954897331687703`*^9, 
   3.495489780118836*^9}, {3.495493913565876*^9, 3.495493935715907*^9}, {
   3.495494084919718*^9, 3.4954941083997507`*^9}, 3.495494511560315*^9, {
   3.495494580840412*^9, 3.4954945834404163`*^9}, {3.495494615970462*^9, 
   3.495494740200636*^9}, {3.495494880710832*^9, 3.4954948880508423`*^9}, {
   3.4954949819649754`*^9, 3.495494999445*^9}, {3.495495046515066*^9, 
   3.495495072875103*^9}, {3.4954951239351745`*^9, 3.4954951241651745`*^9}, {
   3.4954953673051157`*^9, 3.4954953726551237`*^9}, {3.495495450474448*^9, 
   3.495495453173253*^9}, {3.495495542140209*^9, 3.495495583792282*^9}, {
   3.4954957431465626`*^9, 3.4954957746118174`*^9}, {3.495495914419263*^9, 
   3.495495917804469*^9}, {3.495495955322535*^9, 3.4954960459586945`*^9}, {
   3.495496189588146*^9, 3.4954961923181515`*^9}, {3.4954973384365644`*^9, 
   3.495497357577798*^9}, {3.5240858715198665`*^9, 3.52408591925595*^9}, {
   3.5331536712917595`*^9, 3.5331536971617956`*^9}, {3.533223063022563*^9, 
   3.5332230658125668`*^9}, {3.533224894045127*^9, 3.5332248954551287`*^9}, 
   3.5363501685345306`*^9, {3.538444353705845*^9, 3.5384443676658645`*^9}, {
   3.5499343655595293`*^9, 3.549934366379531*^9}, {3.5693429326149015`*^9, 
   3.5693429326149015`*^9}, {3.5693520880530205`*^9, 
   3.5693520882530203`*^9}, {3.576346777874441*^9, 3.576346777874441*^9}, {
   3.6858238270481105`*^9, 3.6858238270481105`*^9}, {3.68582386166309*^9, 
   3.68582386166309*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sech", "[", "u", "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Sech", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", " ", 
              SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.4953915848214207`*^9, 
   3.495391696001576*^9, {3.495401987881138*^9, 3.49540199674115*^9}, {
   3.495402119591322*^9, 3.4954021482513623`*^9}, {3.4954887467773895`*^9, 
   3.4954887749874287`*^9}, 3.495488944397666*^9, 3.495489263778113*^9, 
   3.4954893636582527`*^9, 3.4954898177188883`*^9, 3.495489875358969*^9, 
   3.495493833545764*^9, 3.495493864175807*^9, 3.4954940303560395`*^9, 
   3.4954941516698112`*^9, 3.4954942700599775`*^9, 3.4954948473707857`*^9, {
   3.495495264965372*^9, 3.4954952782653904`*^9}, {3.4954956850364604`*^9, 
   3.4954957088577023`*^9}, {3.495495865341577*^9, 3.4954958884920177`*^9}, {
   3.495496084225561*^9, 3.4954961029143944`*^9}, {3.495496211459385*^9, 
   3.4954962213810024`*^9}, 3.495496440218187*^9, {3.495497026732417*^9, 
   3.4954970596328745`*^9}, {3.495497256957621*^9, 3.495497302338101*^9}, 
   3.533151648818928*^9, 3.5331516797189713`*^9, 3.533151717349024*^9, {
   3.5331518776292486`*^9, 3.533151970249378*^9}, {3.5331520176994443`*^9, 
   3.5331520227894516`*^9}, {3.533152054329496*^9, 3.5331520626995077`*^9}, 
   3.533152270349798*^9, {3.533153065130911*^9, 3.5331530971109557`*^9}, 
   3.53315335008131*^9, {3.5331535194015465`*^9, 3.5331535356615696`*^9}, 
   3.5331536017616625`*^9, {3.533221927890974*^9, 3.533221930830978*^9}, {
   3.533222264011444*^9, 3.533222283731472*^9}, {3.5332223304615374`*^9, 
   3.5332223353515444`*^9}, 3.5363501604045196`*^9, {3.536361767566806*^9, 
   3.5363617697768087`*^9}, {3.5363666287016163`*^9, 
   3.5363666313816195`*^9}, {3.536366784271834*^9, 3.5363667868618374`*^9}, {
   3.536366923782029*^9, 3.5363669254320316`*^9}, {3.5365968786057057`*^9, 
   3.536596881944112*^9}, {3.5366940930205193`*^9, 3.53669410440917*^9}, {
   3.5366942507975435`*^9, 3.536694251403578*^9}, {3.536694493325415*^9, 
   3.536694495295528*^9}, 3.536980387788585*^9, {3.5384441491255584`*^9, 
   3.538444158185571*^9}, 3.5384445157160716`*^9, {3.5693429405449123`*^9, 
   3.569342962434943*^9}, {3.5693520924330263`*^9, 3.5693520926030264`*^9}, {
   3.5693527582739587`*^9, 3.569352760173961*^9}, {3.5763467856944513`*^9, 
   3.5763467984944696`*^9}, {3.5763484883768353`*^9, 
   3.5763484998968515`*^9}, {3.6857624906998634`*^9, 3.685762499708379*^9}, {
   3.685762681134756*^9, 3.6857626835598946`*^9}, {3.6857631664905167`*^9, 
   3.685763167042548*^9}, {3.6858238451961484`*^9, 3.685823867573428*^9}, {
   3.6858241116683893`*^9, 3.685824117600729*^9}, {3.6860825116437225`*^9, 
   3.686082512203755*^9}, {3.6860834828002696`*^9, 3.68608348280727*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Sech", "[", "u_", "]"}]}]}], ")"}], "^", "p_."}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"Sech", "[", 
          RowBox[{"ExpandToSum", "[", 
           RowBox[{"u", ",", "x"}], "]"}], "]"}]}]}], ")"}], "^", "p"}], ",", 
     "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "p"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"BinomialQ", "[", 
     RowBox[{"u", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"BinomialMatchQ", "[", 
      RowBox[{"u", ",", "x"}], "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4954018196509027`*^9, {3.495401867050969*^9, 3.4954018672609687`*^9}, {
   3.4954022872215567`*^9, 3.4954022882115583`*^9}, 3.495488713187342*^9, 
   3.4954889210576334`*^9, 3.4954892270180616`*^9, 3.4954893399982195`*^9, {
   3.4954894833184204`*^9, 3.495489485938424*^9}, 3.4954897194087505`*^9, 
   3.495493755131653*^9, {3.4954938826158323`*^9, 3.495493884975836*^9}, 
   3.4954939962159915`*^9, {3.4954942766399865`*^9, 3.4954942945800114`*^9}, 
   3.4954948208307486`*^9, {3.495495087335123*^9, 3.495495087705124*^9}, 
   3.4954951805652537`*^9, 3.495495346275087*^9, 3.495495665489626*^9, 
   3.4954958533919563`*^9, {3.49549609483358*^9, 3.495496110792408*^9}, 
   3.4954961789333277`*^9, 3.495497173544275*^9, {3.495681286888199*^9, 
   3.4956812892482023`*^9}, {3.5240859566180162`*^9, 3.52408598201486*^9}, {
   3.524086057533393*^9, 3.524086058937395*^9}, {3.5242757161181526`*^9, 
   3.5242757216717625`*^9}, {3.5242763445964565`*^9, 
   3.5242763477320623`*^9}, {3.5331525961202545`*^9, 3.533152618700286*^9}, {
   3.5331527018704023`*^9, 3.5331528058905478`*^9}, {3.533153282981216*^9, 
   3.5331533342812877`*^9}, {3.533153565251611*^9, 3.533153599281659*^9}, {
   3.5332224159616575`*^9, 3.533222435081684*^9}, {3.5332224656717267`*^9, 
   3.533222494301767*^9}, {3.533223281652869*^9, 3.53322331799292*^9}, {
   3.5332234651831264`*^9, 3.5332234684731307`*^9}, {3.533223854473671*^9, 
   3.5332238609936805`*^9}, {3.5332239572838154`*^9, 3.5332239599938188`*^9}, 
   3.533224847425061*^9, {3.5332249144151554`*^9, 3.533224915905157*^9}, 
   3.533246982034763*^9, 3.5332605459462523`*^9, {3.536350185774555*^9, 
   3.536350207334585*^9}, {3.5363506584052167`*^9, 3.5363506914352627`*^9}, {
   3.5363508662655077`*^9, 3.5363509090255675`*^9}, {3.5363510097557087`*^9, 
   3.5363510569557743`*^9}, {3.5363512834660916`*^9, 3.536351309536128*^9}, {
   3.5363515550764723`*^9, 3.5363516176765594`*^9}, {3.5363516722566357`*^9, 
   3.5363516724366364`*^9}, {3.536356352083194*^9, 3.536356353383196*^9}, {
   3.5363617881968346`*^9, 3.536361833056897*^9}, {3.536366667801671*^9, 
   3.5363667247217503`*^9}, {3.5363667904918423`*^9, 3.536366799971856*^9}, {
   3.536366941382054*^9, 3.536366980882109*^9}, {3.5365968943773336`*^9, 
   3.536596936123007*^9}, {3.536596976558278*^9, 3.536597025589164*^9}, 
   3.536602461258152*^9, {3.5366940777176437`*^9, 3.5366940881722417`*^9}, 
   3.5366943020244737`*^9, {3.536694516327731*^9, 3.5366945346767807`*^9}, {
   3.5369801281282215`*^9, 3.5369801381582355`*^9}, 3.536980329338503*^9, {
   3.53698041236862*^9, 3.5369804166186256`*^9}, {3.5369807322990675`*^9, 
   3.536980746969088*^9}, 3.538444106556738*^9, {3.5384444438259706`*^9, 
   3.5384444863560305`*^9}, 3.544471282097495*^9, {3.549934369376335*^9, 
   3.549934370546336*^9}, {3.555274643817338*^9, 3.555274658697359*^9}, {
   3.5693429690149527`*^9, 3.569343004485002*^9}, {3.569343115935158*^9, 
   3.5693431274951744`*^9}, {3.5693438869262376`*^9, 
   3.5693438923862453`*^9}, {3.5693452399481316`*^9, 
   3.5693452412481337`*^9}, {3.5693495213494267`*^9, 
   3.5693495533094716`*^9}, {3.5693499264999943`*^9, 3.569349931960002*^9}, {
   3.569351944542819*^9, 3.5693519905128837`*^9}, {3.576346707344342*^9, 
   3.5763467201043596`*^9}, 3.576346817984497*^9, {3.576346886044592*^9, 
   3.576346989924738*^9}, {3.5763485357069016`*^9, 3.576348553696927*^9}, {
   3.6857625176084027`*^9, 3.685762598976057*^9}, {3.685762696693646*^9, 
   3.685762713057582*^9}, {3.68576316759658*^9, 3.685763169276676*^9}, {
   3.6858238980021687`*^9, 3.685824003763218*^9}, {3.685824121585957*^9, 
   3.6858241358287716`*^9}, {3.686082512692783*^9, 3.6860825133738213`*^9}, {
   3.6860834828142705`*^9, 3.686083482821271*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Csch", "[", "u_", "]"}]}]}], ")"}], "^", "p_."}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"Csch", "[", 
          RowBox[{"ExpandToSum", "[", 
           RowBox[{"u", ",", "x"}], "]"}], "]"}]}]}], ")"}], "^", "p"}], ",", 
     "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "p"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"BinomialQ", "[", 
     RowBox[{"u", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"BinomialMatchQ", "[", 
      RowBox[{"u", ",", "x"}], "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4954018196509027`*^9, {3.495401867050969*^9, 3.4954018672609687`*^9}, {
   3.4954022872215567`*^9, 3.4954022882115583`*^9}, 3.495488713187342*^9, 
   3.4954889210576334`*^9, 3.4954892270180616`*^9, 3.4954893399982195`*^9, {
   3.4954894833184204`*^9, 3.495489485938424*^9}, 3.4954897194087505`*^9, 
   3.495493755131653*^9, {3.4954938826158323`*^9, 3.495493884975836*^9}, 
   3.4954939962159915`*^9, {3.4954942766399865`*^9, 3.4954942945800114`*^9}, 
   3.4954948208307486`*^9, {3.495495087335123*^9, 3.495495087705124*^9}, 
   3.4954951805652537`*^9, 3.495495346275087*^9, 3.495495665489626*^9, 
   3.4954958533919563`*^9, {3.49549609483358*^9, 3.495496110792408*^9}, 
   3.4954961789333277`*^9, 3.495497173544275*^9, {3.495681286888199*^9, 
   3.4956812892482023`*^9}, {3.5240859566180162`*^9, 3.52408598201486*^9}, {
   3.524086057533393*^9, 3.524086058937395*^9}, {3.5242757161181526`*^9, 
   3.5242757216717625`*^9}, {3.5242763445964565`*^9, 
   3.5242763477320623`*^9}, {3.5331525961202545`*^9, 3.533152618700286*^9}, {
   3.5331527018704023`*^9, 3.5331528058905478`*^9}, {3.533153282981216*^9, 
   3.5331533342812877`*^9}, {3.533153565251611*^9, 3.533153599281659*^9}, {
   3.5332224159616575`*^9, 3.533222435081684*^9}, {3.5332224656717267`*^9, 
   3.533222494301767*^9}, {3.533223281652869*^9, 3.53322331799292*^9}, {
   3.5332234651831264`*^9, 3.5332234684731307`*^9}, {3.533223854473671*^9, 
   3.5332238609936805`*^9}, {3.5332239572838154`*^9, 3.5332239599938188`*^9}, 
   3.533224847425061*^9, {3.5332249144151554`*^9, 3.533224915905157*^9}, 
   3.533246982034763*^9, 3.5332605459462523`*^9, {3.536350185774555*^9, 
   3.536350207334585*^9}, {3.5363506584052167`*^9, 3.5363506914352627`*^9}, {
   3.5363508662655077`*^9, 3.5363509090255675`*^9}, {3.5363510097557087`*^9, 
   3.5363510569557743`*^9}, {3.5363512834660916`*^9, 3.536351309536128*^9}, {
   3.5363515550764723`*^9, 3.5363516176765594`*^9}, {3.5363516722566357`*^9, 
   3.5363516724366364`*^9}, {3.536356352083194*^9, 3.536356353383196*^9}, {
   3.5363617881968346`*^9, 3.536361833056897*^9}, {3.536366667801671*^9, 
   3.5363667247217503`*^9}, {3.5363667904918423`*^9, 3.536366799971856*^9}, {
   3.536366941382054*^9, 3.536366980882109*^9}, {3.5365968943773336`*^9, 
   3.536596936123007*^9}, {3.536596976558278*^9, 3.536597025589164*^9}, 
   3.536602461258152*^9, {3.5366940777176437`*^9, 3.5366940881722417`*^9}, 
   3.5366943020244737`*^9, {3.536694516327731*^9, 3.5366945346767807`*^9}, {
   3.5369801281282215`*^9, 3.5369801381582355`*^9}, 3.536980329338503*^9, {
   3.53698041236862*^9, 3.5369804166186256`*^9}, {3.5369807322990675`*^9, 
   3.536980746969088*^9}, 3.538444106556738*^9, {3.5384444438259706`*^9, 
   3.5384444863560305`*^9}, 3.544471282097495*^9, {3.549934369376335*^9, 
   3.549934370546336*^9}, {3.555274643817338*^9, 3.555274658697359*^9}, {
   3.5693429690149527`*^9, 3.569343004485002*^9}, {3.569343115935158*^9, 
   3.5693431274951744`*^9}, {3.5693438869262376`*^9, 
   3.5693438923862453`*^9}, {3.5693452399481316`*^9, 
   3.5693452412481337`*^9}, {3.5693495213494267`*^9, 
   3.5693495533094716`*^9}, {3.5693499264999943`*^9, 3.569349931960002*^9}, {
   3.569351944542819*^9, 3.5693519905128837`*^9}, {3.576346707344342*^9, 
   3.5763467201043596`*^9}, 3.576346817984497*^9, {3.576346886044592*^9, 
   3.576346989924738*^9}, {3.5763485357069016`*^9, 3.576348553696927*^9}, {
   3.6857625176084027`*^9, 3.685762598976057*^9}, {3.685762696693646*^9, 
   3.685762713057582*^9}, {3.68576316759658*^9, 3.685763169276676*^9}, {
   3.6858238980021687`*^9, 3.6858240323568535`*^9}, {3.6858241237490807`*^9, 
   3.6858241338456583`*^9}, {3.6860825297337575`*^9, 
   3.6860825302217855`*^9}, {3.686083498157148*^9, 3.6860834981641483`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{
  3.4796643211106243`*^9, {3.536351324436149*^9, 3.536351326496152*^9}, {
   3.5363515481064625`*^9, 3.536351548866463*^9}}]
}, Closed]],

Cell[BoxData[" "], "Input",
 CellChangeTimes->{3.57634840581672*^9}],

Cell[BoxData[
 StyleBox[
  RowBox[{Cell[TextData[StyleBox["Rules for integrands of the form",
    FontFamily->"Arial",
    FontSize->16]], "None"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"e", " ", "x"}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sech", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", 
          SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"]}],
  FontSize->16]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, {3.5233155055329347`*^9, 3.523315506402936*^9}, {
   3.523318726949605*^9, 3.5233187276796064`*^9}, {3.523920400879534*^9, 
   3.5239204094439487`*^9}, 3.52392096260852*^9, 3.523921038171853*^9, 
   3.5340477459008017`*^9, 3.5340515540554085`*^9, {3.536542511100503*^9, 
   3.53654251626051*^9}, {3.536775961244521*^9, 3.5367759616145215`*^9}, {
   3.544373142375139*^9, 3.5443731599851637`*^9}, {3.5721095751430073`*^9, 
   3.5721095751430073`*^9}, {3.57578648209792*^9, 3.575786503859958*^9}, 
   3.575786540270422*^9, {3.5757866379421935`*^9, 3.5757866609522343`*^9}, 
   3.5758478960540276`*^9, 3.57584912634415*^9, 3.575849218264279*^9, {
   3.575849275424359*^9, 3.57584927603436*^9}, 3.6857607860863657`*^9, 
   3.685761754022728*^9, 3.6857634626204543`*^9, 3.685818346010613*^9, 
   3.6858183842157984`*^9, 3.6860830426470947`*^9, 3.686083482831271*^9, {
   3.6860835975768347`*^9, 3.6860836056512966`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["x", "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sech", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", 
           SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, {3.5233155055329347`*^9, 3.523315506402936*^9}, {
   3.523318726949605*^9, 3.5233187276796064`*^9}, {3.523920400879534*^9, 
   3.5239204094439487`*^9}, 3.52392096260852*^9, 3.523921038171853*^9, 
   3.5340477459008017`*^9, 3.5340515540554085`*^9, {3.536542511100503*^9, 
   3.53654251626051*^9}, {3.536775961244521*^9, 3.5367759616145215`*^9}, {
   3.5415536021761856`*^9, 3.5415536417690554`*^9}, {3.541553723606799*^9, 
   3.541553727070005*^9}, {3.5415537801724987`*^9, 3.5415538106081514`*^9}, {
   3.5601904604844384`*^9, 3.5601904615608406`*^9}, {3.5605383470002007`*^9, 
   3.560538347490202*^9}, {3.5605392059014034`*^9, 3.5605392060714035`*^9}, {
   3.566609914235198*^9, 3.5666099207652073`*^9}, {3.566610893086569*^9, 
   3.566610899156577*^9}, {3.6857631075181437`*^9, 3.6857631098112745`*^9}, {
   3.6858198252202187`*^9, 3.685819840779109*^9}, 3.6858223342207255`*^9, 
   3.685822477577925*^9, 3.686082908890444*^9, 3.686082990804129*^9, 
   3.6860834828482723`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sech", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", 
            SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{"m", "+", "1"}], "n"], "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
       RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, 3.5194115106017265`*^9, {3.519411582829853*^9, 
   3.5194116058086934`*^9}, {3.5194117949434257`*^9, 
   3.5194118041006413`*^9}, {3.519412000598587*^9, 3.5194120130942087`*^9}, {
   3.5197938929263773`*^9, 3.5197938931447773`*^9}, {3.521473804992657*^9, 
   3.521473829412691*^9}, {3.5214741072930803`*^9, 3.521474108863083*^9}, {
   3.523316613544486*^9, 3.523316613544486*^9}, {3.5233184952952356`*^9, 
   3.5233184952952356`*^9}, {3.523318653417488*^9, 3.523318653417488*^9}, 
   3.5239324213533645`*^9, {3.5239326372733436`*^9, 3.523932666538995*^9}, 
   3.5239334940268483`*^9, {3.524105742828332*^9, 3.524105745433536*^9}, {
   3.524105783326003*^9, 3.5241058043704395`*^9}, {3.524167197804468*^9, 
   3.524167275274576*^9}, {3.5241673584446926`*^9, 3.5241673584446926`*^9}, {
   3.5241684217861814`*^9, 3.5241684663262434`*^9}, {3.5241684966162863`*^9, 
   3.5241685133463097`*^9}, {3.524168558706373*^9, 3.524168575716397*^9}, {
   3.5242542194504414`*^9, 3.5242543397578526`*^9}, {3.5242543718471093`*^9, 
   3.5242544424216332`*^9}, {3.524254478910097*^9, 3.5242545759266677`*^9}, {
   3.5242546436307864`*^9, 3.5242546436307864`*^9}, {3.5242547267009325`*^9, 
   3.5242547400857563`*^9}, {3.5242771462350645`*^9, 
   3.5242771465938654`*^9}, {3.5304877376854625`*^9, 3.530487831775594*^9}, {
   3.5305002113339696`*^9, 3.53050021156397*^9}, {3.531256229526664*^9, 
   3.5312562621635933`*^9}, 3.5312563043041887`*^9, 3.5312565353964834`*^9, 
   3.5312718541780033`*^9, {3.531272022680298*^9, 3.531272043970912*^9}, 
   3.5312721159644337`*^9, {3.531286527477171*^9, 3.53128654727564*^9}, {
   3.53133653657067*^9, 3.5313365374719667`*^9}, {3.5332481026588316`*^9, 
   3.5332481046588345`*^9}, {3.533940608115779*^9, 3.5339406083757796`*^9}, {
   3.533940643135828*^9, 3.533940671755868*^9}, {3.53394080166605*^9, 
   3.53394080166605*^9}, {3.5339408897661734`*^9, 3.5339408897661734`*^9}, {
   3.5340308298369713`*^9, 3.534030830046972*^9}, {3.534112012597548*^9, 
   3.534112012877548*^9}, {3.534112474048194*^9, 3.534112474048194*^9}, {
   3.534113465549582*^9, 3.534113471999591*^9}, {3.534114052440404*^9, 
   3.5341140526804037`*^9}, {3.534123360239563*^9, 3.5341233613895645`*^9}, {
   3.534262842344612*^9, 3.5342628439826155`*^9}, {3.5345322182396417`*^9, 
   3.534532219211697*^9}, {3.534643132523288*^9, 3.5346431327603016`*^9}, {
   3.5347067097112875`*^9, 3.534706709898488*^9}, {3.5347082903060637`*^9, 
   3.534708290493264*^9}, {3.5362781002847185`*^9, 3.5362781290847588`*^9}, {
   3.5362782051648655`*^9, 3.5362782927449875`*^9}, 3.5362797486970263`*^9, {
   3.536279783657075*^9, 3.536279832137143*^9}, {3.53628010156752*^9, 
   3.53628010156752*^9}, {3.5362801392775726`*^9, 3.536280166697611*^9}, {
   3.53652906512737*^9, 3.5365290653769703`*^9}, {3.5365397273466053`*^9, 
   3.5365397330766134`*^9}, {3.536540186427248*^9, 3.5365401865872483`*^9}, {
   3.539227727250819*^9, 3.53922772761082*^9}, {3.5393944379874496`*^9, 
   3.539394446018832*^9}, {3.539715023192065*^9, 3.5397150234140773`*^9}, {
   3.539739975773082*^9, 3.5397399760140953`*^9}, {3.539797199704884*^9, 
   3.539797201294886*^9}, {3.539835437168765*^9, 3.5398354373871655`*^9}, {
   3.5398732892608166`*^9, 3.539873290540019*^9}, {3.539908000735093*^9, 
   3.5399080032650967`*^9}, {3.539909324256946*^9, 3.539909324736947*^9}, {
   3.5399100056779003`*^9, 3.539910006327901*^9}, {3.5399117038534846`*^9, 
   3.539911705973488*^9}, {3.5399118081136303`*^9, 3.539911840493676*^9}, {
   3.5399120167139225`*^9, 3.539912058673981*^9}, {3.539912116434062*^9, 
   3.539912160944124*^9}, {3.5399122079541903`*^9, 3.539912209034192*^9}, {
   3.540225401674527*^9, 3.5402254175709553`*^9}, {3.540246803939736*^9, 
   3.540246809609744*^9}, {3.5402469657699623`*^9, 3.5402469659899626`*^9}, {
   3.54025326406878*^9, 3.54025326428878*^9}, {3.540319548749316*^9, 
   3.540319553564592*^9}, {3.540319615043108*^9, 3.540319615043108*^9}, {
   3.54031990826388*^9, 3.54031991963153*^9}, {3.540320024044502*^9, 
   3.540320024044502*^9}, {3.5404234560150514`*^9, 3.5404234562802515`*^9}, {
   3.54042664356545*^9, 3.5404266437682505`*^9}, {3.540427710030123*^9, 
   3.5404277102485237`*^9}, {3.540502502497757*^9, 3.540502505587761*^9}, {
   3.541558935167153*^9, 3.5415589691752124`*^9}, {3.5415590130736895`*^9, 
   3.541559016256095*^9}, {3.541625196004671*^9, 3.541625196398693*^9}, 
   3.5416263852991595`*^9, {3.5416288096753197`*^9, 3.5416288210353355`*^9}, {
   3.5416454005828133`*^9, 3.541645406332822*^9}, {3.541645442062872*^9, 
   3.5416454471728787`*^9}, {3.541645529512994*^9, 3.5416455313729963`*^9}, {
   3.5416499420791717`*^9, 3.541649942359172*^9}, {3.560538024109749*^9, 
   3.560538024369749*^9}, 3.5605380740698185`*^9, {3.5666111850869775`*^9, 
   3.566611185376978*^9}, {3.5696955663080134`*^9, 3.5696955663080134`*^9}, 
   3.685766520004327*^9, {3.685814668389265*^9, 3.685814668389265*^9}, {
   3.6858169198030386`*^9, 3.6858169445264525`*^9}, 3.6858173823154926`*^9, {
   3.6858175247846413`*^9, 3.6858175263117285`*^9}, {3.685818330835745*^9, 
   3.6858183337949142`*^9}, 3.685818375570304*^9, 3.6858197670098896`*^9, 
   3.686082917159917*^9, 3.6860829912851562`*^9, 3.6860834828662734`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.49539151296132*^9, 3.495678787084699*^9, 3.4956789080048685`*^9, 
   3.4956790295250387`*^9, 3.495679129075178*^9, {3.495679335075466*^9, 
   3.4956793607555027`*^9}, {3.495679674485942*^9, 3.4956796884659615`*^9}}],

Cell[TextData[{
 "Basis: If ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    RowBox[{"m", "+", "1"}], "n"], "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["x", "m"], 
    RowBox[{"F", "[", 
     SuperscriptBox["x", "n"], "]"}]}], "\[Equal]", 
   RowBox[{
    FractionBox["1", "n"], " ", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{
       SuperscriptBox["x", 
        RowBox[{
         FractionBox[
          RowBox[{"m", "+", "1"}], "n"], "-", "1"}]], " ", 
       RowBox[{"F", "[", "x", "]"}]}], ",", "x", ",", 
      SuperscriptBox["x", "n"]}], "]"}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     SuperscriptBox["x", "n"]}]}]}]], "Input",
  CellChangeTimes->{{3.496607156053342*^9, 3.4966071870033855`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.496441803031353*^9, 3.4965396318089237`*^9, {3.4966002562016735`*^9, 
   3.4966002624716825`*^9}, 3.496600707442305*^9, 3.4966008475725017`*^9, {
   3.4966070255131593`*^9, 3.496607032413169*^9}, {3.496607078713234*^9, 
   3.4966070808932366`*^9}, {3.4966071978234005`*^9, 3.496607200693404*^9}, {
   3.4966322361067057`*^9, 3.4966322383967094`*^9}, {3.5182408053387165`*^9, 
   3.518240855102804*^9}, {3.518240891700468*^9, 3.5182409026360874`*^9}, {
   3.5182410660151744`*^9, 3.5182410727231865`*^9}, {3.51824110908685*^9, 
   3.5182411327052917`*^9}, {3.518241193217798*^9, 3.5182411959634027`*^9}, {
   3.518291448974951*^9, 3.5182914676169834`*^9}, {3.518291524323083*^9, 
   3.51829153976711*^9}, {3.518291575631573*^9, 3.518291589562398*^9}, {
   3.5182917514854827`*^9, 3.5182917625459023`*^9}, {3.5197703785418744`*^9, 
   3.5197704585544147`*^9}, {3.5197823003612146`*^9, 3.519782301297216*^9}, {
   3.5327273625227003`*^9, 3.532727372032713*^9}, {3.5330847121896152`*^9, 
   3.533084735369648*^9}, {3.533085202270302*^9, 3.5330852300403404`*^9}, {
   3.5330855269607563`*^9, 3.5330855372607703`*^9}, {3.533085675350964*^9, 
   3.533085678880969*^9}, {3.533085724121032*^9, 3.533085727061036*^9}, {
   3.533086048201486*^9, 3.5330860543014946`*^9}, {3.533087161943045*^9, 
   3.5330871737730618`*^9}, {3.533087596973654*^9, 3.533087624703693*^9}, {
   3.5330880821743336`*^9, 3.5330880821743336`*^9}, {3.5330881138943777`*^9, 
   3.533088126024395*^9}, {3.5362820775082874`*^9, 3.5362821103483334`*^9}, {
   3.6857653837793384`*^9, 3.685765386341485*^9}, 3.685814463534548*^9, {
   3.6858171322781916`*^9, 3.6858171322791915`*^9}}],

Cell[TextData[{
 "Note: If ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    RowBox[{"m", "+", "1"}], "n"], "\[Element]", 
   SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]]],
 ", resulting integrand is not integrable."
}], "Subsubsection",
 CellChangeTimes->{
  3.49539151296132*^9, 3.495678787084699*^9, 3.4956789080048685`*^9, 
   3.4956790295250387`*^9, 3.495679129075178*^9, {3.495679335075466*^9, 
   3.4956793607555027`*^9}, {3.495679674485942*^9, 3.4956796884659615`*^9}, {
   3.5608145301974535`*^9, 3.560814608527563*^9}, 3.6858144597143297`*^9}],

Cell[TextData[{
 "Rule: If ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{"m", "+", "1"}], "n"], "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
   RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.495391733731629*^9, 3.495391739521637*^9}, {3.495678797624714*^9, 
   3.4956788080547285`*^9}, 3.4956788502147875`*^9, {3.4956789897249827`*^9, 
   3.495679002425001*^9}, {3.495679072285098*^9, 3.4956790738051004`*^9}, {
   3.495679236085328*^9, 3.495679236315328*^9}, {3.49567937329552*^9, 
   3.4956794246455917`*^9}, {3.495679535505747*^9, 3.495679554085773*^9}, {
   3.5193214041603594`*^9, 3.5193214071867647`*^9}, {3.5193301244794507`*^9, 
   3.5193301257494526`*^9}, 3.5193476221390333`*^9, 3.5193479662828407`*^9, {
   3.5193485103181963`*^9, 3.5193485549498744`*^9}, {3.519663663325344*^9, 
   3.5196636652216225`*^9}, {3.519680530562682*^9, 3.519680530562682*^9}, {
   3.5197556284379497`*^9, 3.5197556284379497`*^9}, {3.5197580987514877`*^9, 
   3.519758100545491*^9}, {3.5197581334459496`*^9, 3.519758155582388*^9}, {
   3.519758193256454*^9, 3.5197582684329863`*^9}, {3.5197584793297567`*^9, 
   3.519758583210339*^9}, {3.5197800633332853`*^9, 3.519780130444603*^9}, 
   3.519780263762437*^9, {3.519780890789939*^9, 3.519780929602807*^9}, 
   3.5197826749958725`*^9, {3.5213126916874757`*^9, 3.5213126916874757`*^9}, {
   3.521328242751012*^9, 3.521328242751012*^9}, {3.532302339923381*^9, 
   3.5323023440533867`*^9}, {3.5323027369539366`*^9, 
   3.5323027369539366`*^9}, {3.5326362525142794`*^9, 
   3.5326362612742915`*^9}, {3.534962194665309*^9, 3.5349622042053223`*^9}, {
   3.5349623337055035`*^9, 3.5349623339155035`*^9}, {3.5349625695458336`*^9, 
   3.5349625695458336`*^9}, {3.5349651959395103`*^9, 
   3.5349652008995175`*^9}, {3.534966956776985*^9, 3.5349669586769876`*^9}, {
   3.5349743512176266`*^9, 3.5349743752476597`*^9}, {3.5349744860878153`*^9, 
   3.5349744860878153`*^9}, {3.5349767696610117`*^9, 3.5349767696610117`*^9}, 
   3.5362786460954823`*^9, {3.536282186878441*^9, 3.5362821923884487`*^9}, {
   3.5362823665986924`*^9, 3.5362823705586977`*^9}, {3.539394469251404*^9, 
   3.539394469251404*^9}, {3.539873282116004*^9, 3.539873283254806*^9}, {
   3.5399121983141766`*^9, 3.5399121983141766`*^9}, {3.5402255014211025`*^9, 
   3.5402255014211025`*^9}, {3.5402468137997494`*^9, 
   3.5402468148197513`*^9}, {3.540398290646603*^9, 3.540398290646603*^9}, {
   3.5415590242277093`*^9, 3.5415590242277093`*^9}, {3.569695568959165*^9, 
   3.569695568959165*^9}, 3.6858144665747223`*^9, {3.6858146365304427`*^9, 
   3.6858146623109174`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox["x", "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sech", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", 
          SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", "n"]}]}], " ", 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox["x", 
        RowBox[{
         FractionBox[
          RowBox[{"m", "+", "1"}], "n"], "-", "1"}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Sech", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     SuperscriptBox["x", "n"]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, 3.495391718911608*^9, 
   3.495391753851657*^9, 3.495678825124752*^9, 3.495678868624813*^9, 
   3.495678953284932*^9, 3.4956790561650763`*^9, {3.495679179585249*^9, 
   3.495679198215275*^9}, 3.4956794688056536`*^9, 3.495679563895787*^9, {
   3.519347698835971*^9, 3.519347728101622*^9}, {3.5193477739345026`*^9, 
   3.519347777538109*^9}, {3.5193478217797866`*^9, 3.5193478387838163`*^9}, {
   3.519348134591536*^9, 3.5193481428439503`*^9}, {3.5197576021246157`*^9, 
   3.519757605431822*^9}, {3.5197795700292187`*^9, 3.519779608935687*^9}, {
   3.534962149765246*^9, 3.5349621724552774`*^9}, {3.5349650775293446`*^9, 
   3.534965103459381*^9}, 3.534973862136942*^9, 3.5349742172974386`*^9, 
   3.5362783981251354`*^9, {3.536278591995407*^9, 3.536278607745429*^9}, 
   3.5362787390056124`*^9, 3.5362788817458124`*^9, {3.536280261137744*^9, 
   3.5362803250178328`*^9}, 3.5362820058481874`*^9, {3.540246862469818*^9, 
   3.540246868999827*^9}, {3.5415590468789487`*^9, 3.5415590660669823`*^9}, {
   3.5416454118028293`*^9, 3.5416454148528337`*^9}, {3.6857665208203735`*^9, 
   3.685766521339403*^9}, 3.68581696685773*^9, {3.685817018367676*^9, 
   3.6858170217518697`*^9}, 3.685817358685141*^9, {3.6858175346492057`*^9, 
   3.685817537360361*^9}, 3.685824685572215*^9, {3.6860829919571953`*^9, 
   3.686082992405221*^9}, {3.686083482873274*^9, 3.6860834828802743`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.534113202099213*^9, 3.5341132112992263`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Sech", "[", 
          RowBox[{"c_.", "+", 
           RowBox[{"d_.", "*", 
            RowBox[{"x_", "^", "n_"}]}]}], "]"}]}]}], ")"}], "^", "p_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", "n"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Simplify", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "+", "1"}], ")"}], "/", "n"}], "]"}], "-", "1"}], 
           ")"}]}], "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"Sech", "[", 
              RowBox[{"c", "+", 
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "p"}]}], ",",
         "x"}], "]"}], ",", "x", ",", 
      RowBox[{"x", "^", "n"}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n", ",", "p"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{
      RowBox[{"Simplify", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}], "/", "n"}], "]"}], ",", "0"}], "]"}],
     " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "p", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.495422238811969*^9, 3.5239327382679205`*^9, {3.5241061049829674`*^9, 
   3.5241061158093867`*^9}, {3.5241061634986706`*^9, 3.524106178100296*^9}, {
   3.5241522039971824`*^9, 3.5241522138657465`*^9}, {3.524167459434834*^9, 
   3.524167501524893*^9}, 3.5241675598849745`*^9, {3.5241689646025457`*^9, 
   3.524169057582676*^9}, {3.5241694886052837`*^9, 3.5241694922252893`*^9}, {
   3.5241697349256287`*^9, 3.524169770915679*^9}, {3.524169890175846*^9, 
   3.52416989278585*^9}, {3.5241699517859325`*^9, 3.524169977745969*^9}, {
   3.5241702075262904`*^9, 3.5241702284463196`*^9}, {3.5241703474164867`*^9, 
   3.5241703535564947`*^9}, {3.5241704168565836`*^9, 
   3.5241704281665993`*^9}, {3.5241707090069923`*^9, 3.5241707118469963`*^9}, 
   3.5241707660170727`*^9, {3.5241735897163877`*^9, 3.524173666646496*^9}, {
   3.524173777586651*^9, 3.5241738523767557`*^9}, {3.5241739428768826`*^9, 
   3.524173979156933*^9}, 3.524174297647379*^9, {3.524185483815135*^9, 
   3.524185485365137*^9}, {3.524185602895302*^9, 3.5241856035153027`*^9}, {
   3.5241856771854057`*^9, 3.5241856830554132`*^9}, {3.524185838105631*^9, 
   3.5241858734356804`*^9}, {3.5241859285057573`*^9, 3.524185944045779*^9}, {
   3.524186003185862*^9, 3.524186038265911*^9}, {3.52418611602602*^9, 
   3.5241861192260246`*^9}, 3.524186217346162*^9, 3.5241863019362803`*^9, {
   3.5241863667163706`*^9, 3.5241863784563875`*^9}, {3.52418651596658*^9, 
   3.5241865406766143`*^9}, {3.5241867699369354`*^9, 
   3.5241868085469894`*^9}, {3.5241868836270943`*^9, 3.5241869237971506`*^9}, 
   3.5241869873472395`*^9, {3.5241870885173817`*^9, 3.524187101037399*^9}, {
   3.5241871740575013`*^9, 3.5241871912575254`*^9}, {3.524187306817687*^9, 
   3.5241873162877*^9}, {3.5241873622777643`*^9, 3.524187409757831*^9}, 
   3.524187460357902*^9, {3.5241874977879543`*^9, 3.524187498347955*^9}, {
   3.524187557468038*^9, 3.5241875586680393`*^9}, {3.524187589468083*^9, 
   3.5241875901780834`*^9}, {3.5241876610181828`*^9, 
   3.5241876929782276`*^9}, {3.524187781768352*^9, 3.524187783788355*^9}, {
   3.5241896786382575`*^9, 3.524189683318266*^9}, {3.524234559451813*^9, 
   3.5242346007294855`*^9}, {3.524238368588504*^9, 3.5242383752965155`*^9}, {
   3.5242384122217803`*^9, 3.524238419928194*^9}, {3.5242393344018*^9, 
   3.524239346819422*^9}, {3.5242394127451377`*^9, 3.5242394565500145`*^9}, {
   3.52423959033585*^9, 3.524239629803919*^9}, {3.524239671487192*^9, 
   3.5242397220468807`*^9}, {3.524239788190997*^9, 3.5242398647715316`*^9}, {
   3.5242437175850987`*^9, 3.5242437668343854`*^9}, {3.524244465247612*^9, 
   3.5242444873372507`*^9}, {3.524244751882516*^9, 3.524244753208518*^9}, {
   3.524245115768755*^9, 3.524245137000392*^9}, {3.5242452528149953`*^9, 
   3.5242452554826*^9}, {3.5242456723777323`*^9, 3.5242456731889334`*^9}, {
   3.524245869936479*^9, 3.5242459980595045`*^9}, {3.5242461068384953`*^9, 
   3.5242461450273623`*^9}, {3.524246187958638*^9, 3.52424618922224*^9}, {
   3.5242462316543145`*^9, 3.524246267690378*^9}, {3.5242463181564665`*^9, 
   3.5242463224620743`*^9}, {3.5242485499936485`*^9, 3.524248561823665*^9}, {
   3.524248621593749*^9, 3.5242486251937537`*^9}, {3.5242487642059507`*^9, 
   3.5242487732359633`*^9}, {3.5242532845563993`*^9, 
   3.5242532909524107`*^9}, {3.52425347849594*^9, 3.5242535106475964`*^9}, {
   3.524253596868948*^9, 3.5242536191613874`*^9}, {3.5242537436028056`*^9, 
   3.5242537593588333`*^9}, 3.5242539276207285`*^9, {3.524254113276655*^9, 
   3.5242541142126565`*^9}, {3.5242547334245443`*^9, 3.5242547363105493`*^9}, 
   3.5249480328482866`*^9, 3.5249480870383625`*^9, 3.530383624409831*^9, 
   3.5303836572717104`*^9, {3.5304855821174417`*^9, 3.5304855869274483`*^9}, {
   3.530486056548106*^9, 3.530486059638111*^9}, {3.5304860949231606`*^9, 
   3.5304860971731634`*^9}, {3.530486238303361*^9, 3.530486240243364*^9}, {
   3.530486952589362*^9, 3.5304870139844484`*^9}, {3.5304870692495255`*^9, 
   3.5304871419796276`*^9}, 3.530487215744731*^9, {3.530487355799927*^9, 
   3.5304873566799283`*^9}, {3.5304874052599964`*^9, 3.530487445625053*^9}, {
   3.530487479950101*^9, 3.5304874842801075`*^9}, {3.5304875702952275`*^9, 
   3.5304875724102306`*^9}, {3.5304876163102922`*^9, 
   3.5304876315153136`*^9}, {3.5312563706495886`*^9, 3.531256451626027*^9}, 
   3.531256559250784*^9, {3.5312719121413507`*^9, 3.5312719878001423`*^9}, {
   3.5312755920427885`*^9, 3.5312755952874546`*^9}, {3.5312856302770605`*^9, 
   3.531285654712197*^9}, {3.53128571933512*^9, 3.531285787002421*^9}, {
   3.5312858245464067`*^9, 3.53128595057763*^9}, {3.5312865586519985`*^9, 
   3.5312865654417615`*^9}, 3.5312884106750765`*^9, 3.5312884470173345`*^9, {
   3.5312884901092978`*^9, 3.5312885050908403`*^9}, {3.5312897715218782`*^9, 
   3.531289778872448*^9}, {3.531289921757907*^9, 3.531289929969715*^9}, {
   3.5312899831061215`*^9, 3.531289984918728*^9}, {3.5312906523184013`*^9, 
   3.5312906554428945`*^9}, {3.5313272051827936`*^9, 
   3.5313272099296193`*^9}, {3.531327286489707*^9, 3.5313272948817744`*^9}, {
   3.531328437394627*^9, 3.5313284476694016`*^9}, {3.531328488668355*^9, 
   3.5313284899702272`*^9}, {3.5313285673514957`*^9, 
   3.5313285721283646`*^9}, {3.531328972333832*^9, 3.5313290468309536`*^9}, 
   3.5313291984689984`*^9, 3.5313298886113744`*^9, {3.5313316869672832`*^9, 
   3.5313316871876*^9}, {3.531333470732211*^9, 3.531333473936819*^9}, {
   3.531334503567355*^9, 3.5313345333702097`*^9}, {3.531334712117235*^9, 
   3.531334724334803*^9}, {3.5313353872780685`*^9, 3.531335388289523*^9}, 
   3.531335434696253*^9, {3.5313387527874336`*^9, 3.5313387613597603`*^9}, {
   3.531339025249214*^9, 3.5313390434353647`*^9}, 3.531341876639312*^9, {
   3.5313421989627905`*^9, 3.531342251227944*^9}, {3.531346616364702*^9, 
   3.531346616715206*^9}, {3.5313466656655936`*^9, 3.5313466801764593`*^9}, {
   3.5315136290734544`*^9, 3.531513629934693*^9}, {3.531605034435397*^9, 
   3.5316050365784783`*^9}, {3.5316052098275986`*^9, 
   3.5316052120307665`*^9}, {3.531605458364978*^9, 3.531605459536662*^9}, {
   3.531699937927347*^9, 3.531699949764368*^9}, {3.531700346314579*^9, 
   3.531700368586605*^9}, {3.533937757524288*^9, 3.5339377669843016`*^9}, {
   3.5339377979043446`*^9, 3.533937819634375*^9}, {3.533938179374879*^9, 
   3.5339381969849033`*^9}, {3.5339382401149635`*^9, 3.533938297835045*^9}, {
   3.533938343125108*^9, 3.53393834467511*^9}, {3.533940711115923*^9, 
   3.533940734385956*^9}, {3.533940828086087*^9, 3.533940838736102*^9}, {
   3.5339509493977776`*^9, 3.533950953016984*^9}, {3.5339537404454803`*^9, 
   3.533953741022681*^9}, 3.5341123221979814`*^9, {3.534112354908027*^9, 
   3.5341124143381104`*^9}, {3.5341132023392134`*^9, 3.5341132204892387`*^9}, 
   3.5341132649293013`*^9, {3.534113300779351*^9, 3.534113329099391*^9}, 
   3.5341133652694416`*^9, 3.5341142271706486`*^9, {3.5345321670477133`*^9, 
   3.534532171965995*^9}, {3.5362786526054916`*^9, 3.5362789025258417`*^9}, 
   3.536278964715928*^9, {3.536280431045983*^9, 3.5362805001260796`*^9}, {
   3.536282251078531*^9, 3.5362822674485536`*^9}, 3.536282315798621*^9, {
   3.539394472692601*^9, 3.539394480494047*^9}, {3.539873240448331*^9, 
   3.5398732425387344`*^9}, {3.5398764447838063`*^9, 3.539876499193883*^9}, {
   3.5398766331940703`*^9, 3.5398766391340785`*^9}, {3.539876715014185*^9, 
   3.539876723554197*^9}, {3.53987682549434*^9, 3.5398768289543447`*^9}, {
   3.539876864374394*^9, 3.539876888614428*^9}, 3.5398769372844963`*^9, {
   3.5398772720149646`*^9, 3.539877285924984*^9}, {3.53987916159761*^9, 
   3.5398791659376163`*^9}, {3.5399079172749767`*^9, 3.539907920534981*^9}, {
   3.539907989705078*^9, 3.5399079959450865`*^9}, {3.5399084131756706`*^9, 
   3.539908413365671*^9}, {3.5399098233376446`*^9, 3.539909825507648*^9}, {
   3.539911719093506*^9, 3.5399117237635126`*^9}, {3.5399117615235653`*^9, 
   3.539911789053604*^9}, {3.539911825573655*^9, 3.539911826853657*^9}, {
   3.5399121026740427`*^9, 3.5399121080540504`*^9}, {3.5400525421824102`*^9, 
   3.540052546452416*^9}, {3.540225445604204*^9, 3.5402254620466332`*^9}, {
   3.540246837799783*^9, 3.5402468548298073`*^9}, 3.540253158138632*^9, {
   3.540258206054838*^9, 3.5402582233148623`*^9}, {3.540258564005339*^9, 
   3.5402585665953426`*^9}, 3.5403195777839775`*^9, 3.5403198886027546`*^9, 
   3.5403200387483425`*^9, {3.54034257060467*^9, 3.540342575644677*^9}, {
   3.540398255328141*^9, 3.540398258401346*^9}, {3.5415590771274023`*^9, 
   3.5415591276558905`*^9}, {3.5416498676490674`*^9, 3.5416498715990725`*^9}, 
   3.541875470169911*^9, {3.5605358410266924`*^9, 3.560535849346704*^9}, 
   3.569695608938452*^9, {3.685766521868433*^9, 3.6857665223564615`*^9}, {
   3.685814676765744*^9, 3.6858146853222337`*^9}, {3.685817453547567*^9, 
   3.6858175185792866`*^9}, {3.6858175674780836`*^9, 3.685817574945511*^9}, 
   3.6858453213257165`*^9, {3.6860829928622465`*^9, 3.686082993286271*^9}, {
   3.686083482888275*^9, 3.686083482895275*^9}, {3.7152127771632824`*^9, 
   3.7152127830206175`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Csch", "[", 
          RowBox[{"c_.", "+", 
           RowBox[{"d_.", "*", 
            RowBox[{"x_", "^", "n_"}]}]}], "]"}]}]}], ")"}], "^", "p_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", "n"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Simplify", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "+", "1"}], ")"}], "/", "n"}], "]"}], "-", "1"}], 
           ")"}]}], "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"Csch", "[", 
              RowBox[{"c", "+", 
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "p"}]}], ",",
         "x"}], "]"}], ",", "x", ",", 
      RowBox[{"x", "^", "n"}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n", ",", "p"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{
      RowBox[{"Simplify", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}], "/", "n"}], "]"}], ",", "0"}], "]"}],
     " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "p", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.495422238811969*^9, 3.5239327382679205`*^9, {3.5241061049829674`*^9, 
   3.5241061158093867`*^9}, {3.5241061634986706`*^9, 3.524106178100296*^9}, {
   3.5241522039971824`*^9, 3.5241522138657465`*^9}, {3.524167459434834*^9, 
   3.524167501524893*^9}, 3.5241675598849745`*^9, {3.5241689646025457`*^9, 
   3.524169057582676*^9}, {3.5241694886052837`*^9, 3.5241694922252893`*^9}, {
   3.5241697349256287`*^9, 3.524169770915679*^9}, {3.524169890175846*^9, 
   3.52416989278585*^9}, {3.5241699517859325`*^9, 3.524169977745969*^9}, {
   3.5241702075262904`*^9, 3.5241702284463196`*^9}, {3.5241703474164867`*^9, 
   3.5241703535564947`*^9}, {3.5241704168565836`*^9, 
   3.5241704281665993`*^9}, {3.5241707090069923`*^9, 3.5241707118469963`*^9}, 
   3.5241707660170727`*^9, {3.5241735897163877`*^9, 3.524173666646496*^9}, {
   3.524173777586651*^9, 3.5241738523767557`*^9}, {3.5241739428768826`*^9, 
   3.524173979156933*^9}, 3.524174297647379*^9, {3.524185483815135*^9, 
   3.524185485365137*^9}, {3.524185602895302*^9, 3.5241856035153027`*^9}, {
   3.5241856771854057`*^9, 3.5241856830554132`*^9}, {3.524185838105631*^9, 
   3.5241858734356804`*^9}, {3.5241859285057573`*^9, 3.524185944045779*^9}, {
   3.524186003185862*^9, 3.524186038265911*^9}, {3.52418611602602*^9, 
   3.5241861192260246`*^9}, 3.524186217346162*^9, 3.5241863019362803`*^9, {
   3.5241863667163706`*^9, 3.5241863784563875`*^9}, {3.52418651596658*^9, 
   3.5241865406766143`*^9}, {3.5241867699369354`*^9, 
   3.5241868085469894`*^9}, {3.5241868836270943`*^9, 3.5241869237971506`*^9}, 
   3.5241869873472395`*^9, {3.5241870885173817`*^9, 3.524187101037399*^9}, {
   3.5241871740575013`*^9, 3.5241871912575254`*^9}, {3.524187306817687*^9, 
   3.5241873162877*^9}, {3.5241873622777643`*^9, 3.524187409757831*^9}, 
   3.524187460357902*^9, {3.5241874977879543`*^9, 3.524187498347955*^9}, {
   3.524187557468038*^9, 3.5241875586680393`*^9}, {3.524187589468083*^9, 
   3.5241875901780834`*^9}, {3.5241876610181828`*^9, 
   3.5241876929782276`*^9}, {3.524187781768352*^9, 3.524187783788355*^9}, {
   3.5241896786382575`*^9, 3.524189683318266*^9}, {3.524234559451813*^9, 
   3.5242346007294855`*^9}, {3.524238368588504*^9, 3.5242383752965155`*^9}, {
   3.5242384122217803`*^9, 3.524238419928194*^9}, {3.5242393344018*^9, 
   3.524239346819422*^9}, {3.5242394127451377`*^9, 3.5242394565500145`*^9}, {
   3.52423959033585*^9, 3.524239629803919*^9}, {3.524239671487192*^9, 
   3.5242397220468807`*^9}, {3.524239788190997*^9, 3.5242398647715316`*^9}, {
   3.5242437175850987`*^9, 3.5242437668343854`*^9}, {3.524244465247612*^9, 
   3.5242444873372507`*^9}, {3.524244751882516*^9, 3.524244753208518*^9}, {
   3.524245115768755*^9, 3.524245137000392*^9}, {3.5242452528149953`*^9, 
   3.5242452554826*^9}, {3.5242456723777323`*^9, 3.5242456731889334`*^9}, {
   3.524245869936479*^9, 3.5242459980595045`*^9}, {3.5242461068384953`*^9, 
   3.5242461450273623`*^9}, {3.524246187958638*^9, 3.52424618922224*^9}, {
   3.5242462316543145`*^9, 3.524246267690378*^9}, {3.5242463181564665`*^9, 
   3.5242463224620743`*^9}, {3.5242485499936485`*^9, 3.524248561823665*^9}, {
   3.524248621593749*^9, 3.5242486251937537`*^9}, {3.5242487642059507`*^9, 
   3.5242487732359633`*^9}, {3.5242532845563993`*^9, 
   3.5242532909524107`*^9}, {3.52425347849594*^9, 3.5242535106475964`*^9}, {
   3.524253596868948*^9, 3.5242536191613874`*^9}, {3.5242537436028056`*^9, 
   3.5242537593588333`*^9}, 3.5242539276207285`*^9, {3.524254113276655*^9, 
   3.5242541142126565`*^9}, {3.5242547334245443`*^9, 3.5242547363105493`*^9}, 
   3.5249480328482866`*^9, 3.5249480870383625`*^9, 3.530383624409831*^9, 
   3.5303836572717104`*^9, {3.5304855821174417`*^9, 3.5304855869274483`*^9}, {
   3.530486056548106*^9, 3.530486059638111*^9}, {3.5304860949231606`*^9, 
   3.5304860971731634`*^9}, {3.530486238303361*^9, 3.530486240243364*^9}, {
   3.530486952589362*^9, 3.5304870139844484`*^9}, {3.5304870692495255`*^9, 
   3.5304871419796276`*^9}, 3.530487215744731*^9, {3.530487355799927*^9, 
   3.5304873566799283`*^9}, {3.5304874052599964`*^9, 3.530487445625053*^9}, {
   3.530487479950101*^9, 3.5304874842801075`*^9}, {3.5304875702952275`*^9, 
   3.5304875724102306`*^9}, {3.5304876163102922`*^9, 
   3.5304876315153136`*^9}, {3.5312563706495886`*^9, 3.531256451626027*^9}, 
   3.531256559250784*^9, {3.5312719121413507`*^9, 3.5312719878001423`*^9}, {
   3.5312755920427885`*^9, 3.5312755952874546`*^9}, {3.5312856302770605`*^9, 
   3.531285654712197*^9}, {3.53128571933512*^9, 3.531285787002421*^9}, {
   3.5312858245464067`*^9, 3.53128595057763*^9}, {3.5312865586519985`*^9, 
   3.5312865654417615`*^9}, 3.5312884106750765`*^9, 3.5312884470173345`*^9, {
   3.5312884901092978`*^9, 3.5312885050908403`*^9}, {3.5312897715218782`*^9, 
   3.531289778872448*^9}, {3.531289921757907*^9, 3.531289929969715*^9}, {
   3.5312899831061215`*^9, 3.531289984918728*^9}, {3.5312906523184013`*^9, 
   3.5312906554428945`*^9}, {3.5313272051827936`*^9, 
   3.5313272099296193`*^9}, {3.531327286489707*^9, 3.5313272948817744`*^9}, {
   3.531328437394627*^9, 3.5313284476694016`*^9}, {3.531328488668355*^9, 
   3.5313284899702272`*^9}, {3.5313285673514957`*^9, 
   3.5313285721283646`*^9}, {3.531328972333832*^9, 3.5313290468309536`*^9}, 
   3.5313291984689984`*^9, 3.5313298886113744`*^9, {3.5313316869672832`*^9, 
   3.5313316871876*^9}, {3.531333470732211*^9, 3.531333473936819*^9}, {
   3.531334503567355*^9, 3.5313345333702097`*^9}, {3.531334712117235*^9, 
   3.531334724334803*^9}, {3.5313353872780685`*^9, 3.531335388289523*^9}, 
   3.531335434696253*^9, {3.5313387527874336`*^9, 3.5313387613597603`*^9}, {
   3.531339025249214*^9, 3.5313390434353647`*^9}, 3.531341876639312*^9, {
   3.5313421989627905`*^9, 3.531342251227944*^9}, {3.531346616364702*^9, 
   3.531346616715206*^9}, {3.5313466656655936`*^9, 3.5313466801764593`*^9}, {
   3.5315136290734544`*^9, 3.531513629934693*^9}, {3.531605034435397*^9, 
   3.5316050365784783`*^9}, {3.5316052098275986`*^9, 
   3.5316052120307665`*^9}, {3.531605458364978*^9, 3.531605459536662*^9}, {
   3.531699937927347*^9, 3.531699949764368*^9}, {3.531700346314579*^9, 
   3.531700368586605*^9}, {3.533937757524288*^9, 3.5339377669843016`*^9}, {
   3.5339377979043446`*^9, 3.533937819634375*^9}, {3.533938179374879*^9, 
   3.5339381969849033`*^9}, {3.5339382401149635`*^9, 3.533938297835045*^9}, {
   3.533938343125108*^9, 3.53393834467511*^9}, {3.533940711115923*^9, 
   3.533940734385956*^9}, {3.533940828086087*^9, 3.533940838736102*^9}, {
   3.5339509493977776`*^9, 3.533950953016984*^9}, {3.5339537404454803`*^9, 
   3.533953741022681*^9}, 3.5341123221979814`*^9, {3.534112354908027*^9, 
   3.5341124143381104`*^9}, {3.5341132023392134`*^9, 3.5341132204892387`*^9}, 
   3.5341132649293013`*^9, {3.534113300779351*^9, 3.534113329099391*^9}, 
   3.5341133652694416`*^9, 3.5341142271706486`*^9, {3.5345321670477133`*^9, 
   3.534532171965995*^9}, {3.5362786526054916`*^9, 3.5362789025258417`*^9}, 
   3.536278964715928*^9, {3.536280431045983*^9, 3.5362805001260796`*^9}, {
   3.536282251078531*^9, 3.5362822674485536`*^9}, 3.536282315798621*^9, {
   3.539394472692601*^9, 3.539394480494047*^9}, {3.539873240448331*^9, 
   3.5398732425387344`*^9}, {3.5398764447838063`*^9, 3.539876499193883*^9}, {
   3.5398766331940703`*^9, 3.5398766391340785`*^9}, {3.539876715014185*^9, 
   3.539876723554197*^9}, {3.53987682549434*^9, 3.5398768289543447`*^9}, {
   3.539876864374394*^9, 3.539876888614428*^9}, 3.5398769372844963`*^9, {
   3.5398772720149646`*^9, 3.539877285924984*^9}, {3.53987916159761*^9, 
   3.5398791659376163`*^9}, {3.5399079172749767`*^9, 3.539907920534981*^9}, {
   3.539907989705078*^9, 3.5399079959450865`*^9}, {3.5399084131756706`*^9, 
   3.539908413365671*^9}, {3.5399098233376446`*^9, 3.539909825507648*^9}, {
   3.539911719093506*^9, 3.5399117237635126`*^9}, {3.5399117615235653`*^9, 
   3.539911789053604*^9}, {3.539911825573655*^9, 3.539911826853657*^9}, {
   3.5399121026740427`*^9, 3.5399121080540504`*^9}, {3.5400525421824102`*^9, 
   3.540052546452416*^9}, {3.540225445604204*^9, 3.5402254620466332`*^9}, {
   3.540246837799783*^9, 3.5402468548298073`*^9}, 3.540253158138632*^9, {
   3.540258206054838*^9, 3.5402582233148623`*^9}, {3.540258564005339*^9, 
   3.5402585665953426`*^9}, 3.5403195777839775`*^9, 3.5403198886027546`*^9, 
   3.5403200387483425`*^9, {3.54034257060467*^9, 3.540342575644677*^9}, {
   3.540398255328141*^9, 3.540398258401346*^9}, {3.5415590771274023`*^9, 
   3.5415591276558905`*^9}, {3.5416498676490674`*^9, 3.5416498715990725`*^9}, 
   3.541875470169911*^9, {3.5605358410266924`*^9, 3.560535849346704*^9}, 
   3.569695608938452*^9, {3.685766521868433*^9, 3.6857665223564615`*^9}, {
   3.685814676765744*^9, 3.6858146853222337`*^9}, {3.685817453547567*^9, 
   3.6858175185792866`*^9}, {3.6858175674780836`*^9, 3.6858176047332144`*^9}, 
   3.68584532329132*^9, {3.6860829567051787`*^9, 3.68608295725421*^9}, {
   3.686083498171149*^9, 3.686083498178149*^9}, 3.715212788574935*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["X:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sech", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", 
            SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.541554026372131*^9, 3.5415540329709425`*^9}, {3.541554090269843*^9, 
   3.5415540937486486`*^9}, {3.5415541788779984`*^9, 
   3.5415541845564084`*^9}, {3.5415542699197583`*^9, 
   3.5415542699197583`*^9}, {3.5415545113613825`*^9, 3.541554511548583*^9}, {
   3.541554961468973*^9, 3.5415549756805983`*^9}, {3.5416447241018667`*^9, 
   3.541644753441908*^9}, {3.541644874612077*^9, 3.541644887622095*^9}, {
   3.5416450613923388`*^9, 3.5416450613923388`*^9}, {3.5416475854658723`*^9, 
   3.541647600335893*^9}, 3.541651849261842*^9, {3.560538025569751*^9, 
   3.560538025749751*^9}, 3.5605380751598206`*^9, {3.685764327542925*^9, 
   3.685764343098815*^9}, {3.6858163279191847`*^9, 3.6858163279191847`*^9}, {
   3.6858225110038366`*^9, 3.685822514101014*^9}, 3.686082920795125*^9, 
   3.686082996820473*^9, 3.6860834829022756`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.495391733731629*^9, 3.495391739521637*^9}, {3.495678797624714*^9, 
   3.4956788080547285`*^9}, 3.4956788502147875`*^9, {3.4956789897249827`*^9, 
   3.495679002425001*^9}, {3.495679072285098*^9, 3.4956790738051004`*^9}, {
   3.495679236085328*^9, 3.495679236315328*^9}, {3.49567937329552*^9, 
   3.4956794246455917`*^9}, {3.495679535505747*^9, 3.495679554085773*^9}, {
   3.5193214041603594`*^9, 3.5193214071867647`*^9}, {3.5193301244794507`*^9, 
   3.5193301257494526`*^9}, 3.5193476221390333`*^9, 3.5193479662828407`*^9, {
   3.5193485103181963`*^9, 3.5193485549498744`*^9}, {3.519663663325344*^9, 
   3.5196636652216225`*^9}, {3.519680530562682*^9, 3.519680530562682*^9}, {
   3.5197556284379497`*^9, 3.5197556284379497`*^9}, {3.5197580987514877`*^9, 
   3.519758100545491*^9}, {3.5197581334459496`*^9, 3.519758155582388*^9}, {
   3.519758193256454*^9, 3.5197582684329863`*^9}, {3.5197584793297567`*^9, 
   3.519758583210339*^9}, {3.5197800633332853`*^9, 3.519780130444603*^9}, 
   3.519780263762437*^9, {3.519780890789939*^9, 3.519780929602807*^9}, 
   3.5197826749958725`*^9, {3.5213126916874757`*^9, 3.5213126916874757`*^9}, {
   3.521328242751012*^9, 3.521328242751012*^9}, {3.532302339923381*^9, 
   3.5323023440533867`*^9}, {3.5323027369539366`*^9, 
   3.5323027369539366`*^9}, {3.5326362525142794`*^9, 
   3.5326362612742915`*^9}, {3.534962194665309*^9, 3.5349622042053223`*^9}, {
   3.5349623337055035`*^9, 3.5349623339155035`*^9}, {3.5349625695458336`*^9, 
   3.5349625695458336`*^9}, {3.5349651959395103`*^9, 
   3.5349652008995175`*^9}, {3.534966956776985*^9, 3.5349669586769876`*^9}, {
   3.534974691448103*^9, 3.5349746956381083`*^9}, {3.534975450099165*^9, 
   3.534975450099165*^9}, {3.5416444623515*^9, 3.5416444623515*^9}, {
   3.5416447832619495`*^9, 3.5416447832619495`*^9}, {3.5416448932321033`*^9, 
   3.5416448932321033`*^9}, {3.5416450201822805`*^9, 
   3.5416450549723296`*^9}, {3.541647604455899*^9, 3.5416476054759007`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox["x", "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sech", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", 
          SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox["x", "m"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Sech", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", " ", 
              SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 
   3.4978101470356674`*^9}, {3.497810228295781*^9, 3.497810232715788*^9}, 
   3.497810535736212*^9, {3.5415550260686865`*^9, 3.541555037893507*^9}, {
   3.541644759091915*^9, 3.5416447617719193`*^9}, {3.5416518628618608`*^9, 
   3.5416518649018636`*^9}, {3.685764343626845*^9, 3.6857643441298738`*^9}, {
   3.6858225276087866`*^9, 3.685822531921033*^9}, {3.6860829977725277`*^9, 
   3.6860829982925577`*^9}, {3.686083482909276*^9, 3.6860834829162765`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Sech", "[", 
          RowBox[{"c_.", "+", 
           RowBox[{"d_.", "*", 
            RowBox[{"x_", "^", "n_"}]}]}], "]"}]}]}], ")"}], "^", "p_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "m"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Sech", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", "*", 
             RowBox[{"x", "^", "n"}]}]}], "]"}]}]}], ")"}], "^", "p"}]}], ",",
      "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n", ",", "p"}], 
      "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 
   3.497810442686082*^9, {3.541554243462112*^9, 3.541554250154524*^9}, {
   3.541555044039918*^9, 3.541555107157629*^9}, {3.541644789891958*^9, 
   3.5416447903319592`*^9}, {3.541644910332127*^9, 3.5416449689922094`*^9}, {
   3.541645076192359*^9, 3.5416451034423976`*^9}, 3.5416476094459057`*^9, 
   3.541649758068914*^9, {3.541651868011868*^9, 3.541651884451891*^9}, 
   3.5605378485895033`*^9, {3.685764344682905*^9, 3.685764345178934*^9}, {
   3.685822549117017*^9, 3.68582257452247*^9}, {3.6860829987975864`*^9, 
   3.686082999237612*^9}, {3.686083482923277*^9, 3.686083482929277*^9}, 
   3.712338437620553*^9, 3.715617179866563*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Csch", "[", 
          RowBox[{"c_.", "+", 
           RowBox[{"d_.", "*", 
            RowBox[{"x_", "^", "n_"}]}]}], "]"}]}]}], ")"}], "^", "p_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "m"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Csch", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", "*", 
             RowBox[{"x", "^", "n"}]}]}], "]"}]}]}], ")"}], "^", "p"}]}], ",",
      "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n", ",", "p"}], 
      "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 
   3.497810442686082*^9, {3.541554243462112*^9, 3.541554250154524*^9}, {
   3.541555044039918*^9, 3.541555107157629*^9}, {3.541644789891958*^9, 
   3.5416447903319592`*^9}, {3.541644910332127*^9, 3.5416449689922094`*^9}, {
   3.541645076192359*^9, 3.5416451034423976`*^9}, 3.5416476094459057`*^9, 
   3.541649758068914*^9, {3.541651868011868*^9, 3.541651884451891*^9}, 
   3.5605378485895033`*^9, {3.685764344682905*^9, 3.685764345178934*^9}, {
   3.685822549117017*^9, 3.685822591096418*^9}, {3.6860829592293234`*^9, 
   3.686082959686349*^9}, {3.6860834981851497`*^9, 3.68608349819215*^9}, 
   3.712338437629554*^9, 3.7156171804515967`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["2:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"e", " ", "x"}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sech", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", 
           SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, 3.5194115106017265`*^9, {3.519411582829853*^9, 
   3.5194116058086934`*^9}, {3.5194117949434257`*^9, 
   3.5194118041006413`*^9}, {3.519412000598587*^9, 3.5194120130942087`*^9}, {
   3.5197938929263773`*^9, 3.5197938931447773`*^9}, {3.521473804992657*^9, 
   3.521473829412691*^9}, {3.5214741072930803`*^9, 3.521474108863083*^9}, {
   3.523316613544486*^9, 3.523316613544486*^9}, {3.5233184952952356`*^9, 
   3.5233184952952356`*^9}, {3.523318653417488*^9, 3.523318653417488*^9}, 
   3.5239324213533645`*^9, {3.5239326372733436`*^9, 3.523932666538995*^9}, 
   3.5239334940268483`*^9, {3.524105742828332*^9, 3.524105745433536*^9}, {
   3.524105783326003*^9, 3.5241058043704395`*^9}, {3.524167197804468*^9, 
   3.524167275274576*^9}, {3.5241673584446926`*^9, 3.5241673584446926`*^9}, {
   3.5241684217861814`*^9, 3.5241684663262434`*^9}, {3.5241684966162863`*^9, 
   3.5241685133463097`*^9}, {3.524168558706373*^9, 3.524168575716397*^9}, {
   3.5242542194504414`*^9, 3.5242543397578526`*^9}, {3.5242543718471093`*^9, 
   3.5242544424216332`*^9}, {3.524254478910097*^9, 3.5242545759266677`*^9}, {
   3.5242546436307864`*^9, 3.5242546436307864`*^9}, {3.5242547267009325`*^9, 
   3.5242547400857563`*^9}, {3.5242771462350645`*^9, 
   3.5242771465938654`*^9}, {3.5304877376854625`*^9, 3.530487831775594*^9}, {
   3.5305002113339696`*^9, 3.53050021156397*^9}, {3.531256229526664*^9, 
   3.5312562621635933`*^9}, 3.5312563043041887`*^9, 3.5312565353964834`*^9, 
   3.5312718541780033`*^9, {3.531272022680298*^9, 3.531272043970912*^9}, 
   3.5312721159644337`*^9, {3.531286527477171*^9, 3.53128654727564*^9}, {
   3.53133653657067*^9, 3.5313365374719667`*^9}, {3.5332481026588316`*^9, 
   3.5332481046588345`*^9}, {3.533940608115779*^9, 3.5339406083757796`*^9}, {
   3.533940643135828*^9, 3.533940671755868*^9}, {3.53394080166605*^9, 
   3.53394080166605*^9}, {3.5339408897661734`*^9, 3.5339408897661734`*^9}, {
   3.5340308298369713`*^9, 3.534030830046972*^9}, {3.534112012597548*^9, 
   3.534112012877548*^9}, {3.534112474048194*^9, 3.534112474048194*^9}, {
   3.534113465549582*^9, 3.534113471999591*^9}, {3.534114052440404*^9, 
   3.5341140526804037`*^9}, {3.534123360239563*^9, 3.5341233613895645`*^9}, {
   3.534262842344612*^9, 3.5342628439826155`*^9}, {3.5345322182396417`*^9, 
   3.534532219211697*^9}, {3.534643132523288*^9, 3.5346431327603016`*^9}, {
   3.5347067097112875`*^9, 3.534706709898488*^9}, {3.5347082903060637`*^9, 
   3.534708290493264*^9}, {3.5362781002847185`*^9, 3.5362781290847588`*^9}, {
   3.5362782051648655`*^9, 3.5362782927449875`*^9}, 3.5362797486970263`*^9, {
   3.536279783657075*^9, 3.536279832137143*^9}, {3.53628010156752*^9, 
   3.53628010156752*^9}, {3.5362801392775726`*^9, 3.536280166697611*^9}, {
   3.53652906512737*^9, 3.5365290653769703`*^9}, {3.5365397273466053`*^9, 
   3.5365397330766134`*^9}, {3.536540186427248*^9, 3.5365401865872483`*^9}, {
   3.539227727250819*^9, 3.53922772761082*^9}, {3.5393944379874496`*^9, 
   3.539394446018832*^9}, {3.539715023192065*^9, 3.5397150234140773`*^9}, {
   3.539739975773082*^9, 3.5397399760140953`*^9}, {3.539797199704884*^9, 
   3.539797201294886*^9}, {3.539835437168765*^9, 3.5398354373871655`*^9}, {
   3.5398732892608166`*^9, 3.539873290540019*^9}, {3.539908000735093*^9, 
   3.5399080032650967`*^9}, {3.539909324256946*^9, 3.539909324736947*^9}, {
   3.5399100056779003`*^9, 3.539910006327901*^9}, {3.5399117038534846`*^9, 
   3.539911705973488*^9}, {3.5399118081136303`*^9, 3.539911840493676*^9}, {
   3.5399120167139225`*^9, 3.539912058673981*^9}, {3.539912116434062*^9, 
   3.539912160944124*^9}, {3.5399122079541903`*^9, 3.539912209034192*^9}, {
   3.540225401674527*^9, 3.5402254175709553`*^9}, {3.540246803939736*^9, 
   3.540246809609744*^9}, {3.5402469657699623`*^9, 3.5402469659899626`*^9}, {
   3.54025326406878*^9, 3.54025326428878*^9}, {3.540319548749316*^9, 
   3.540319553564592*^9}, {3.540319615043108*^9, 3.540319615043108*^9}, {
   3.54031990826388*^9, 3.54031991963153*^9}, {3.540320024044502*^9, 
   3.540320024044502*^9}, {3.5404234560150514`*^9, 3.5404234562802515`*^9}, {
   3.54042664356545*^9, 3.5404266437682505`*^9}, {3.540427710030123*^9, 
   3.5404277102485237`*^9}, {3.540502502497757*^9, 3.540502505587761*^9}, {
   3.541558935167153*^9, 3.5415589691752124`*^9}, {3.5415590130736895`*^9, 
   3.541559016256095*^9}, {3.541625196004671*^9, 3.541625196398693*^9}, 
   3.5416263852991595`*^9, {3.5416288096753197`*^9, 3.5416288210353355`*^9}, {
   3.5416454005828133`*^9, 3.541645406332822*^9}, {3.541645442062872*^9, 
   3.5416454471728787`*^9}, {3.541645529512994*^9, 3.5416455313729963`*^9}, {
   3.5416499420791717`*^9, 3.541649942359172*^9}, {3.560538024109749*^9, 
   3.560538024369749*^9}, 3.5605380740698185`*^9, {3.5666111850869775`*^9, 
   3.566611185376978*^9}, {3.5696955663080134`*^9, 3.5696955663080134`*^9}, 
   3.685766520004327*^9, {3.685814668389265*^9, 3.685814668389265*^9}, {
   3.6858169198030386`*^9, 3.6858169445264525`*^9}, 3.6858173823154926`*^9, {
   3.6858175247846413`*^9, 3.6858175263117285`*^9}, {3.685818330835745*^9, 
   3.6858183337949142`*^9}, 3.685818375570304*^9, 3.6858197670098896`*^9, {
   3.685819863070384*^9, 3.6858198770961857`*^9}, {3.685822360318218*^9, 
   3.6858223638254185`*^9}, 3.6860829094774776`*^9, 3.686082999667636*^9, 
   3.6860834829392776`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellChangeTimes->{
  3.49539151296132*^9, 3.495678787084699*^9, 3.4956789080048685`*^9, 
   3.4956790295250387`*^9, 3.495679129075178*^9, {3.495679335075466*^9, 
   3.4956793607555027`*^9}, {3.495679674485942*^9, 3.4956796884659615`*^9}, {
   3.6858199574597826`*^9, 3.685819963464126*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"e", " ", "x"}], ")"}], "m"], 
     SuperscriptBox["x", "m"]]}], "\[Equal]", "0"}]], "Input",
  CellChangeTimes->{{3.496607156053342*^9, 3.4966071870033855`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.496441803031353*^9, 3.4965396318089237`*^9, {3.4966002562016735`*^9, 
   3.4966002624716825`*^9}, 3.496600707442305*^9, 3.4966008475725017`*^9, {
   3.4966070255131593`*^9, 3.496607032413169*^9}, {3.496607078713234*^9, 
   3.4966070808932366`*^9}, {3.4966071978234005`*^9, 3.496607200693404*^9}, {
   3.4966322361067057`*^9, 3.4966322383967094`*^9}, {3.5182408053387165`*^9, 
   3.518240855102804*^9}, {3.518240891700468*^9, 3.5182409026360874`*^9}, {
   3.5182410660151744`*^9, 3.5182410727231865`*^9}, {3.51824110908685*^9, 
   3.5182411327052917`*^9}, {3.518241193217798*^9, 3.5182411959634027`*^9}, {
   3.518291448974951*^9, 3.5182914676169834`*^9}, {3.518291524323083*^9, 
   3.51829153976711*^9}, {3.518291575631573*^9, 3.518291589562398*^9}, {
   3.5182917514854827`*^9, 3.5182917625459023`*^9}, {3.5197703785418744`*^9, 
   3.5197704585544147`*^9}, {3.5197823003612146`*^9, 3.519782301297216*^9}, {
   3.5327273625227003`*^9, 3.532727372032713*^9}, {3.5330847121896152`*^9, 
   3.533084735369648*^9}, {3.533085202270302*^9, 3.5330852300403404`*^9}, {
   3.5330855269607563`*^9, 3.5330855372607703`*^9}, {3.533085675350964*^9, 
   3.533085678880969*^9}, {3.533085724121032*^9, 3.533085727061036*^9}, {
   3.533086048201486*^9, 3.5330860543014946`*^9}, {3.533087161943045*^9, 
   3.5330871737730618`*^9}, {3.533087596973654*^9, 3.533087624703693*^9}, {
   3.5330880821743336`*^9, 3.5330880821743336`*^9}, {3.5330881138943777`*^9, 
   3.533088126024395*^9}, {3.5362820775082874`*^9, 3.5362821103483334`*^9}, {
   3.6857653837793384`*^9, 3.685765386341485*^9}, 3.685814463534548*^9, {
   3.6858171322781916`*^9, 3.6858171322791915`*^9}, {3.685820014429041*^9, 
   3.6858200199533567`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.495391733731629*^9, 3.495391739521637*^9}, {3.495678797624714*^9, 
   3.4956788080547285`*^9}, 3.4956788502147875`*^9, {3.4956789897249827`*^9, 
   3.495679002425001*^9}, {3.495679072285098*^9, 3.4956790738051004`*^9}, {
   3.495679236085328*^9, 3.495679236315328*^9}, {3.49567937329552*^9, 
   3.4956794246455917`*^9}, {3.495679535505747*^9, 3.495679554085773*^9}, {
   3.5193214041603594`*^9, 3.5193214071867647`*^9}, {3.5193301244794507`*^9, 
   3.5193301257494526`*^9}, 3.5193476221390333`*^9, 3.5193479662828407`*^9, {
   3.5193485103181963`*^9, 3.5193485549498744`*^9}, {3.519663663325344*^9, 
   3.5196636652216225`*^9}, {3.519680530562682*^9, 3.519680530562682*^9}, {
   3.5197556284379497`*^9, 3.5197556284379497`*^9}, {3.5197580987514877`*^9, 
   3.519758100545491*^9}, {3.5197581334459496`*^9, 3.519758155582388*^9}, {
   3.519758193256454*^9, 3.5197582684329863`*^9}, {3.5197584793297567`*^9, 
   3.519758583210339*^9}, {3.5197800633332853`*^9, 3.519780130444603*^9}, 
   3.519780263762437*^9, {3.519780890789939*^9, 3.519780929602807*^9}, 
   3.5197826749958725`*^9, {3.5213126916874757`*^9, 3.5213126916874757`*^9}, {
   3.521328242751012*^9, 3.521328242751012*^9}, {3.532302339923381*^9, 
   3.5323023440533867`*^9}, {3.5323027369539366`*^9, 
   3.5323027369539366`*^9}, {3.5326362525142794`*^9, 
   3.5326362612742915`*^9}, {3.534962194665309*^9, 3.5349622042053223`*^9}, {
   3.5349623337055035`*^9, 3.5349623339155035`*^9}, {3.5349625695458336`*^9, 
   3.5349625695458336`*^9}, {3.5349651959395103`*^9, 
   3.5349652008995175`*^9}, {3.534966956776985*^9, 3.5349669586769876`*^9}, {
   3.5349743512176266`*^9, 3.5349743752476597`*^9}, {3.5349744860878153`*^9, 
   3.5349744860878153`*^9}, {3.5349767696610117`*^9, 3.5349767696610117`*^9}, 
   3.5362786460954823`*^9, {3.536282186878441*^9, 3.5362821923884487`*^9}, {
   3.5362823665986924`*^9, 3.5362823705586977`*^9}, {3.539394469251404*^9, 
   3.539394469251404*^9}, {3.539873282116004*^9, 3.539873283254806*^9}, {
   3.5399121983141766`*^9, 3.5399121983141766`*^9}, {3.5402255014211025`*^9, 
   3.5402255014211025`*^9}, {3.5402468137997494`*^9, 
   3.5402468148197513`*^9}, {3.540398290646603*^9, 3.540398290646603*^9}, {
   3.5415590242277093`*^9, 3.5415590242277093`*^9}, {3.569695568959165*^9, 
   3.569695568959165*^9}, 3.6858144665747223`*^9, {3.6858146365304427`*^9, 
   3.6858146623109174`*^9}, 3.6858223805303745`*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"e", " ", "x"}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sech", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", 
          SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["e", 
        RowBox[{"IntPart", "[", "m", "]"}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"e", " ", "x"}], ")"}], 
        RowBox[{"FracPart", "[", "m", "]"}]]}], 
      SuperscriptBox["x", 
       RowBox[{"FracPart", "[", "m", "]"}]]]}]}], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sech", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", 
            SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, 3.495391718911608*^9, 
   3.495391753851657*^9, 3.495678825124752*^9, 3.495678868624813*^9, 
   3.495678953284932*^9, 3.4956790561650763`*^9, {3.495679179585249*^9, 
   3.495679198215275*^9}, 3.4956794688056536`*^9, 3.495679563895787*^9, {
   3.519347698835971*^9, 3.519347728101622*^9}, {3.5193477739345026`*^9, 
   3.519347777538109*^9}, {3.5193478217797866`*^9, 3.5193478387838163`*^9}, {
   3.519348134591536*^9, 3.5193481428439503`*^9}, {3.5197576021246157`*^9, 
   3.519757605431822*^9}, {3.5197795700292187`*^9, 3.519779608935687*^9}, {
   3.534962149765246*^9, 3.5349621724552774`*^9}, {3.5349650775293446`*^9, 
   3.534965103459381*^9}, 3.534973862136942*^9, 3.5349742172974386`*^9, 
   3.5362783981251354`*^9, {3.536278591995407*^9, 3.536278607745429*^9}, 
   3.5362787390056124`*^9, 3.5362788817458124`*^9, {3.536280261137744*^9, 
   3.5362803250178328`*^9}, 3.5362820058481874`*^9, {3.540246862469818*^9, 
   3.540246868999827*^9}, {3.5415590468789487`*^9, 3.5415590660669823`*^9}, {
   3.5416454118028293`*^9, 3.5416454148528337`*^9}, {3.6857665208203735`*^9, 
   3.685766521339403*^9}, 3.68581696685773*^9, {3.685817018367676*^9, 
   3.6858170217518697`*^9}, 3.685817358685141*^9, {3.6858175346492057`*^9, 
   3.685817537360361*^9}, {3.6858198981143885`*^9, 3.685819949794344*^9}, {
   3.6860830000366573`*^9, 3.6860830004046783`*^9}, {3.686083482956279*^9, 
   3.686083482963279*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.534113202099213*^9, 3.5341132112992263`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e_", "*", "x_"}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Sech", "[", 
          RowBox[{"c_.", "+", 
           RowBox[{"d_.", "*", 
            RowBox[{"x_", "^", "n_"}]}]}], "]"}]}]}], ")"}], "^", "p_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"e", "^", 
     RowBox[{"IntPart", "[", "m", "]"}]}], "*", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e", "*", "x"}], ")"}], "^", 
      RowBox[{"FracPart", "[", "m", "]"}]}], "/", 
     RowBox[{"x", "^", 
      RowBox[{"FracPart", "[", "m", "]"}]}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"x", "^", "m"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Sech", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", "*", 
              RowBox[{"x", "^", "n"}]}]}], "]"}]}]}], ")"}], "^", "p"}]}], 
      ",", "x"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "n", ",", 
       "p"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.495422238811969*^9, 3.5239327382679205`*^9, {3.5241061049829674`*^9, 
   3.5241061158093867`*^9}, {3.5241061634986706`*^9, 3.524106178100296*^9}, {
   3.5241522039971824`*^9, 3.5241522138657465`*^9}, {3.524167459434834*^9, 
   3.524167501524893*^9}, 3.5241675598849745`*^9, {3.5241689646025457`*^9, 
   3.524169057582676*^9}, {3.5241694886052837`*^9, 3.5241694922252893`*^9}, {
   3.5241697349256287`*^9, 3.524169770915679*^9}, {3.524169890175846*^9, 
   3.52416989278585*^9}, {3.5241699517859325`*^9, 3.524169977745969*^9}, {
   3.5241702075262904`*^9, 3.5241702284463196`*^9}, {3.5241703474164867`*^9, 
   3.5241703535564947`*^9}, {3.5241704168565836`*^9, 
   3.5241704281665993`*^9}, {3.5241707090069923`*^9, 3.5241707118469963`*^9}, 
   3.5241707660170727`*^9, {3.5241735897163877`*^9, 3.524173666646496*^9}, {
   3.524173777586651*^9, 3.5241738523767557`*^9}, {3.5241739428768826`*^9, 
   3.524173979156933*^9}, 3.524174297647379*^9, {3.524185483815135*^9, 
   3.524185485365137*^9}, {3.524185602895302*^9, 3.5241856035153027`*^9}, {
   3.5241856771854057`*^9, 3.5241856830554132`*^9}, {3.524185838105631*^9, 
   3.5241858734356804`*^9}, {3.5241859285057573`*^9, 3.524185944045779*^9}, {
   3.524186003185862*^9, 3.524186038265911*^9}, {3.52418611602602*^9, 
   3.5241861192260246`*^9}, 3.524186217346162*^9, 3.5241863019362803`*^9, {
   3.5241863667163706`*^9, 3.5241863784563875`*^9}, {3.52418651596658*^9, 
   3.5241865406766143`*^9}, {3.5241867699369354`*^9, 
   3.5241868085469894`*^9}, {3.5241868836270943`*^9, 3.5241869237971506`*^9}, 
   3.5241869873472395`*^9, {3.5241870885173817`*^9, 3.524187101037399*^9}, {
   3.5241871740575013`*^9, 3.5241871912575254`*^9}, {3.524187306817687*^9, 
   3.5241873162877*^9}, {3.5241873622777643`*^9, 3.524187409757831*^9}, 
   3.524187460357902*^9, {3.5241874977879543`*^9, 3.524187498347955*^9}, {
   3.524187557468038*^9, 3.5241875586680393`*^9}, {3.524187589468083*^9, 
   3.5241875901780834`*^9}, {3.5241876610181828`*^9, 
   3.5241876929782276`*^9}, {3.524187781768352*^9, 3.524187783788355*^9}, {
   3.5241896786382575`*^9, 3.524189683318266*^9}, {3.524234559451813*^9, 
   3.5242346007294855`*^9}, {3.524238368588504*^9, 3.5242383752965155`*^9}, {
   3.5242384122217803`*^9, 3.524238419928194*^9}, {3.5242393344018*^9, 
   3.524239346819422*^9}, {3.5242394127451377`*^9, 3.5242394565500145`*^9}, {
   3.52423959033585*^9, 3.524239629803919*^9}, {3.524239671487192*^9, 
   3.5242397220468807`*^9}, {3.524239788190997*^9, 3.5242398647715316`*^9}, {
   3.5242437175850987`*^9, 3.5242437668343854`*^9}, {3.524244465247612*^9, 
   3.5242444873372507`*^9}, {3.524244751882516*^9, 3.524244753208518*^9}, {
   3.524245115768755*^9, 3.524245137000392*^9}, {3.5242452528149953`*^9, 
   3.5242452554826*^9}, {3.5242456723777323`*^9, 3.5242456731889334`*^9}, {
   3.524245869936479*^9, 3.5242459980595045`*^9}, {3.5242461068384953`*^9, 
   3.5242461450273623`*^9}, {3.524246187958638*^9, 3.52424618922224*^9}, {
   3.5242462316543145`*^9, 3.524246267690378*^9}, {3.5242463181564665`*^9, 
   3.5242463224620743`*^9}, {3.5242485499936485`*^9, 3.524248561823665*^9}, {
   3.524248621593749*^9, 3.5242486251937537`*^9}, {3.5242487642059507`*^9, 
   3.5242487732359633`*^9}, {3.5242532845563993`*^9, 
   3.5242532909524107`*^9}, {3.52425347849594*^9, 3.5242535106475964`*^9}, {
   3.524253596868948*^9, 3.5242536191613874`*^9}, {3.5242537436028056`*^9, 
   3.5242537593588333`*^9}, 3.5242539276207285`*^9, {3.524254113276655*^9, 
   3.5242541142126565`*^9}, {3.5242547334245443`*^9, 3.5242547363105493`*^9}, 
   3.5249480328482866`*^9, 3.5249480870383625`*^9, 3.530383624409831*^9, 
   3.5303836572717104`*^9, {3.5304855821174417`*^9, 3.5304855869274483`*^9}, {
   3.530486056548106*^9, 3.530486059638111*^9}, {3.5304860949231606`*^9, 
   3.5304860971731634`*^9}, {3.530486238303361*^9, 3.530486240243364*^9}, {
   3.530486952589362*^9, 3.5304870139844484`*^9}, {3.5304870692495255`*^9, 
   3.5304871419796276`*^9}, 3.530487215744731*^9, {3.530487355799927*^9, 
   3.5304873566799283`*^9}, {3.5304874052599964`*^9, 3.530487445625053*^9}, {
   3.530487479950101*^9, 3.5304874842801075`*^9}, {3.5304875702952275`*^9, 
   3.5304875724102306`*^9}, {3.5304876163102922`*^9, 
   3.5304876315153136`*^9}, {3.5312563706495886`*^9, 3.531256451626027*^9}, 
   3.531256559250784*^9, {3.5312719121413507`*^9, 3.5312719878001423`*^9}, {
   3.5312755920427885`*^9, 3.5312755952874546`*^9}, {3.5312856302770605`*^9, 
   3.531285654712197*^9}, {3.53128571933512*^9, 3.531285787002421*^9}, {
   3.5312858245464067`*^9, 3.53128595057763*^9}, {3.5312865586519985`*^9, 
   3.5312865654417615`*^9}, 3.5312884106750765`*^9, 3.5312884470173345`*^9, {
   3.5312884901092978`*^9, 3.5312885050908403`*^9}, {3.5312897715218782`*^9, 
   3.531289778872448*^9}, {3.531289921757907*^9, 3.531289929969715*^9}, {
   3.5312899831061215`*^9, 3.531289984918728*^9}, {3.5312906523184013`*^9, 
   3.5312906554428945`*^9}, {3.5313272051827936`*^9, 
   3.5313272099296193`*^9}, {3.531327286489707*^9, 3.5313272948817744`*^9}, {
   3.531328437394627*^9, 3.5313284476694016`*^9}, {3.531328488668355*^9, 
   3.5313284899702272`*^9}, {3.5313285673514957`*^9, 
   3.5313285721283646`*^9}, {3.531328972333832*^9, 3.5313290468309536`*^9}, 
   3.5313291984689984`*^9, 3.5313298886113744`*^9, {3.5313316869672832`*^9, 
   3.5313316871876*^9}, {3.531333470732211*^9, 3.531333473936819*^9}, {
   3.531334503567355*^9, 3.5313345333702097`*^9}, {3.531334712117235*^9, 
   3.531334724334803*^9}, {3.5313353872780685`*^9, 3.531335388289523*^9}, 
   3.531335434696253*^9, {3.5313387527874336`*^9, 3.5313387613597603`*^9}, {
   3.531339025249214*^9, 3.5313390434353647`*^9}, 3.531341876639312*^9, {
   3.5313421989627905`*^9, 3.531342251227944*^9}, {3.531346616364702*^9, 
   3.531346616715206*^9}, {3.5313466656655936`*^9, 3.5313466801764593`*^9}, {
   3.5315136290734544`*^9, 3.531513629934693*^9}, {3.531605034435397*^9, 
   3.5316050365784783`*^9}, {3.5316052098275986`*^9, 
   3.5316052120307665`*^9}, {3.531605458364978*^9, 3.531605459536662*^9}, {
   3.531699937927347*^9, 3.531699949764368*^9}, {3.531700346314579*^9, 
   3.531700368586605*^9}, {3.533937757524288*^9, 3.5339377669843016`*^9}, {
   3.5339377979043446`*^9, 3.533937819634375*^9}, {3.533938179374879*^9, 
   3.5339381969849033`*^9}, {3.5339382401149635`*^9, 3.533938297835045*^9}, {
   3.533938343125108*^9, 3.53393834467511*^9}, {3.533940711115923*^9, 
   3.533940734385956*^9}, {3.533940828086087*^9, 3.533940838736102*^9}, {
   3.5339509493977776`*^9, 3.533950953016984*^9}, {3.5339537404454803`*^9, 
   3.533953741022681*^9}, 3.5341123221979814`*^9, {3.534112354908027*^9, 
   3.5341124143381104`*^9}, {3.5341132023392134`*^9, 3.5341132204892387`*^9}, 
   3.5341132649293013`*^9, {3.534113300779351*^9, 3.534113329099391*^9}, 
   3.5341133652694416`*^9, 3.5341142271706486`*^9, {3.5345321670477133`*^9, 
   3.534532171965995*^9}, {3.5362786526054916`*^9, 3.5362789025258417`*^9}, 
   3.536278964715928*^9, {3.536280431045983*^9, 3.5362805001260796`*^9}, {
   3.536282251078531*^9, 3.5362822674485536`*^9}, 3.536282315798621*^9, {
   3.539394472692601*^9, 3.539394480494047*^9}, {3.539873240448331*^9, 
   3.5398732425387344`*^9}, {3.5398764447838063`*^9, 3.539876499193883*^9}, {
   3.5398766331940703`*^9, 3.5398766391340785`*^9}, {3.539876715014185*^9, 
   3.539876723554197*^9}, {3.53987682549434*^9, 3.5398768289543447`*^9}, {
   3.539876864374394*^9, 3.539876888614428*^9}, 3.5398769372844963`*^9, {
   3.5398772720149646`*^9, 3.539877285924984*^9}, {3.53987916159761*^9, 
   3.5398791659376163`*^9}, {3.5399079172749767`*^9, 3.539907920534981*^9}, {
   3.539907989705078*^9, 3.5399079959450865`*^9}, {3.5399084131756706`*^9, 
   3.539908413365671*^9}, {3.5399098233376446`*^9, 3.539909825507648*^9}, {
   3.539911719093506*^9, 3.5399117237635126`*^9}, {3.5399117615235653`*^9, 
   3.539911789053604*^9}, {3.539911825573655*^9, 3.539911826853657*^9}, {
   3.5399121026740427`*^9, 3.5399121080540504`*^9}, {3.5400525421824102`*^9, 
   3.540052546452416*^9}, {3.540225445604204*^9, 3.5402254620466332`*^9}, {
   3.540246837799783*^9, 3.5402468548298073`*^9}, 3.540253158138632*^9, {
   3.540258206054838*^9, 3.5402582233148623`*^9}, {3.540258564005339*^9, 
   3.5402585665953426`*^9}, 3.5403195777839775`*^9, 3.5403198886027546`*^9, 
   3.5403200387483425`*^9, {3.54034257060467*^9, 3.540342575644677*^9}, {
   3.540398255328141*^9, 3.540398258401346*^9}, {3.5415590771274023`*^9, 
   3.5415591276558905`*^9}, {3.5416498676490674`*^9, 3.5416498715990725`*^9}, 
   3.541875470169911*^9, {3.5605358410266924`*^9, 3.560535849346704*^9}, 
   3.569695608938452*^9, {3.685766521868433*^9, 3.6857665223564615`*^9}, {
   3.685814676765744*^9, 3.6858146853222337`*^9}, {3.685817453547567*^9, 
   3.6858175185792866`*^9}, {3.6858175674780836`*^9, 3.685817574945511*^9}, {
   3.6858200462728624`*^9, 3.685820053981303*^9}, {3.6858201209671345`*^9, 
   3.685820121203148*^9}, 3.6858201592913265`*^9, {3.6858223849966297`*^9, 
   3.6858223887728453`*^9}, {3.6858224253769393`*^9, 
   3.6858224519234576`*^9}, {3.6860830007907004`*^9, 3.686083001158721*^9}, {
   3.686083482971279*^9, 3.68608348297828*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e_", "*", "x_"}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Csch", "[", 
          RowBox[{"c_.", "+", 
           RowBox[{"d_.", "*", 
            RowBox[{"x_", "^", "n_"}]}]}], "]"}]}]}], ")"}], "^", "p_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"e", "^", 
     RowBox[{"IntPart", "[", "m", "]"}]}], "*", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e", "*", "x"}], ")"}], "^", 
      RowBox[{"FracPart", "[", "m", "]"}]}], "/", 
     RowBox[{"x", "^", 
      RowBox[{"FracPart", "[", "m", "]"}]}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"x", "^", "m"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Csch", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", "*", 
              RowBox[{"x", "^", "n"}]}]}], "]"}]}]}], ")"}], "^", "p"}]}], 
      ",", "x"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "n", ",", 
       "p"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.495422238811969*^9, 3.5239327382679205`*^9, {3.5241061049829674`*^9, 
   3.5241061158093867`*^9}, {3.5241061634986706`*^9, 3.524106178100296*^9}, {
   3.5241522039971824`*^9, 3.5241522138657465`*^9}, {3.524167459434834*^9, 
   3.524167501524893*^9}, 3.5241675598849745`*^9, {3.5241689646025457`*^9, 
   3.524169057582676*^9}, {3.5241694886052837`*^9, 3.5241694922252893`*^9}, {
   3.5241697349256287`*^9, 3.524169770915679*^9}, {3.524169890175846*^9, 
   3.52416989278585*^9}, {3.5241699517859325`*^9, 3.524169977745969*^9}, {
   3.5241702075262904`*^9, 3.5241702284463196`*^9}, {3.5241703474164867`*^9, 
   3.5241703535564947`*^9}, {3.5241704168565836`*^9, 
   3.5241704281665993`*^9}, {3.5241707090069923`*^9, 3.5241707118469963`*^9}, 
   3.5241707660170727`*^9, {3.5241735897163877`*^9, 3.524173666646496*^9}, {
   3.524173777586651*^9, 3.5241738523767557`*^9}, {3.5241739428768826`*^9, 
   3.524173979156933*^9}, 3.524174297647379*^9, {3.524185483815135*^9, 
   3.524185485365137*^9}, {3.524185602895302*^9, 3.5241856035153027`*^9}, {
   3.5241856771854057`*^9, 3.5241856830554132`*^9}, {3.524185838105631*^9, 
   3.5241858734356804`*^9}, {3.5241859285057573`*^9, 3.524185944045779*^9}, {
   3.524186003185862*^9, 3.524186038265911*^9}, {3.52418611602602*^9, 
   3.5241861192260246`*^9}, 3.524186217346162*^9, 3.5241863019362803`*^9, {
   3.5241863667163706`*^9, 3.5241863784563875`*^9}, {3.52418651596658*^9, 
   3.5241865406766143`*^9}, {3.5241867699369354`*^9, 
   3.5241868085469894`*^9}, {3.5241868836270943`*^9, 3.5241869237971506`*^9}, 
   3.5241869873472395`*^9, {3.5241870885173817`*^9, 3.524187101037399*^9}, {
   3.5241871740575013`*^9, 3.5241871912575254`*^9}, {3.524187306817687*^9, 
   3.5241873162877*^9}, {3.5241873622777643`*^9, 3.524187409757831*^9}, 
   3.524187460357902*^9, {3.5241874977879543`*^9, 3.524187498347955*^9}, {
   3.524187557468038*^9, 3.5241875586680393`*^9}, {3.524187589468083*^9, 
   3.5241875901780834`*^9}, {3.5241876610181828`*^9, 
   3.5241876929782276`*^9}, {3.524187781768352*^9, 3.524187783788355*^9}, {
   3.5241896786382575`*^9, 3.524189683318266*^9}, {3.524234559451813*^9, 
   3.5242346007294855`*^9}, {3.524238368588504*^9, 3.5242383752965155`*^9}, {
   3.5242384122217803`*^9, 3.524238419928194*^9}, {3.5242393344018*^9, 
   3.524239346819422*^9}, {3.5242394127451377`*^9, 3.5242394565500145`*^9}, {
   3.52423959033585*^9, 3.524239629803919*^9}, {3.524239671487192*^9, 
   3.5242397220468807`*^9}, {3.524239788190997*^9, 3.5242398647715316`*^9}, {
   3.5242437175850987`*^9, 3.5242437668343854`*^9}, {3.524244465247612*^9, 
   3.5242444873372507`*^9}, {3.524244751882516*^9, 3.524244753208518*^9}, {
   3.524245115768755*^9, 3.524245137000392*^9}, {3.5242452528149953`*^9, 
   3.5242452554826*^9}, {3.5242456723777323`*^9, 3.5242456731889334`*^9}, {
   3.524245869936479*^9, 3.5242459980595045`*^9}, {3.5242461068384953`*^9, 
   3.5242461450273623`*^9}, {3.524246187958638*^9, 3.52424618922224*^9}, {
   3.5242462316543145`*^9, 3.524246267690378*^9}, {3.5242463181564665`*^9, 
   3.5242463224620743`*^9}, {3.5242485499936485`*^9, 3.524248561823665*^9}, {
   3.524248621593749*^9, 3.5242486251937537`*^9}, {3.5242487642059507`*^9, 
   3.5242487732359633`*^9}, {3.5242532845563993`*^9, 
   3.5242532909524107`*^9}, {3.52425347849594*^9, 3.5242535106475964`*^9}, {
   3.524253596868948*^9, 3.5242536191613874`*^9}, {3.5242537436028056`*^9, 
   3.5242537593588333`*^9}, 3.5242539276207285`*^9, {3.524254113276655*^9, 
   3.5242541142126565`*^9}, {3.5242547334245443`*^9, 3.5242547363105493`*^9}, 
   3.5249480328482866`*^9, 3.5249480870383625`*^9, 3.530383624409831*^9, 
   3.5303836572717104`*^9, {3.5304855821174417`*^9, 3.5304855869274483`*^9}, {
   3.530486056548106*^9, 3.530486059638111*^9}, {3.5304860949231606`*^9, 
   3.5304860971731634`*^9}, {3.530486238303361*^9, 3.530486240243364*^9}, {
   3.530486952589362*^9, 3.5304870139844484`*^9}, {3.5304870692495255`*^9, 
   3.5304871419796276`*^9}, 3.530487215744731*^9, {3.530487355799927*^9, 
   3.5304873566799283`*^9}, {3.5304874052599964`*^9, 3.530487445625053*^9}, {
   3.530487479950101*^9, 3.5304874842801075`*^9}, {3.5304875702952275`*^9, 
   3.5304875724102306`*^9}, {3.5304876163102922`*^9, 
   3.5304876315153136`*^9}, {3.5312563706495886`*^9, 3.531256451626027*^9}, 
   3.531256559250784*^9, {3.5312719121413507`*^9, 3.5312719878001423`*^9}, {
   3.5312755920427885`*^9, 3.5312755952874546`*^9}, {3.5312856302770605`*^9, 
   3.531285654712197*^9}, {3.53128571933512*^9, 3.531285787002421*^9}, {
   3.5312858245464067`*^9, 3.53128595057763*^9}, {3.5312865586519985`*^9, 
   3.5312865654417615`*^9}, 3.5312884106750765`*^9, 3.5312884470173345`*^9, {
   3.5312884901092978`*^9, 3.5312885050908403`*^9}, {3.5312897715218782`*^9, 
   3.531289778872448*^9}, {3.531289921757907*^9, 3.531289929969715*^9}, {
   3.5312899831061215`*^9, 3.531289984918728*^9}, {3.5312906523184013`*^9, 
   3.5312906554428945`*^9}, {3.5313272051827936`*^9, 
   3.5313272099296193`*^9}, {3.531327286489707*^9, 3.5313272948817744`*^9}, {
   3.531328437394627*^9, 3.5313284476694016`*^9}, {3.531328488668355*^9, 
   3.5313284899702272`*^9}, {3.5313285673514957`*^9, 
   3.5313285721283646`*^9}, {3.531328972333832*^9, 3.5313290468309536`*^9}, 
   3.5313291984689984`*^9, 3.5313298886113744`*^9, {3.5313316869672832`*^9, 
   3.5313316871876*^9}, {3.531333470732211*^9, 3.531333473936819*^9}, {
   3.531334503567355*^9, 3.5313345333702097`*^9}, {3.531334712117235*^9, 
   3.531334724334803*^9}, {3.5313353872780685`*^9, 3.531335388289523*^9}, 
   3.531335434696253*^9, {3.5313387527874336`*^9, 3.5313387613597603`*^9}, {
   3.531339025249214*^9, 3.5313390434353647`*^9}, 3.531341876639312*^9, {
   3.5313421989627905`*^9, 3.531342251227944*^9}, {3.531346616364702*^9, 
   3.531346616715206*^9}, {3.5313466656655936`*^9, 3.5313466801764593`*^9}, {
   3.5315136290734544`*^9, 3.531513629934693*^9}, {3.531605034435397*^9, 
   3.5316050365784783`*^9}, {3.5316052098275986`*^9, 
   3.5316052120307665`*^9}, {3.531605458364978*^9, 3.531605459536662*^9}, {
   3.531699937927347*^9, 3.531699949764368*^9}, {3.531700346314579*^9, 
   3.531700368586605*^9}, {3.533937757524288*^9, 3.5339377669843016`*^9}, {
   3.5339377979043446`*^9, 3.533937819634375*^9}, {3.533938179374879*^9, 
   3.5339381969849033`*^9}, {3.5339382401149635`*^9, 3.533938297835045*^9}, {
   3.533938343125108*^9, 3.53393834467511*^9}, {3.533940711115923*^9, 
   3.533940734385956*^9}, {3.533940828086087*^9, 3.533940838736102*^9}, {
   3.5339509493977776`*^9, 3.533950953016984*^9}, {3.5339537404454803`*^9, 
   3.533953741022681*^9}, 3.5341123221979814`*^9, {3.534112354908027*^9, 
   3.5341124143381104`*^9}, {3.5341132023392134`*^9, 3.5341132204892387`*^9}, 
   3.5341132649293013`*^9, {3.534113300779351*^9, 3.534113329099391*^9}, 
   3.5341133652694416`*^9, 3.5341142271706486`*^9, {3.5345321670477133`*^9, 
   3.534532171965995*^9}, {3.5362786526054916`*^9, 3.5362789025258417`*^9}, 
   3.536278964715928*^9, {3.536280431045983*^9, 3.5362805001260796`*^9}, {
   3.536282251078531*^9, 3.5362822674485536`*^9}, 3.536282315798621*^9, {
   3.539394472692601*^9, 3.539394480494047*^9}, {3.539873240448331*^9, 
   3.5398732425387344`*^9}, {3.5398764447838063`*^9, 3.539876499193883*^9}, {
   3.5398766331940703`*^9, 3.5398766391340785`*^9}, {3.539876715014185*^9, 
   3.539876723554197*^9}, {3.53987682549434*^9, 3.5398768289543447`*^9}, {
   3.539876864374394*^9, 3.539876888614428*^9}, 3.5398769372844963`*^9, {
   3.5398772720149646`*^9, 3.539877285924984*^9}, {3.53987916159761*^9, 
   3.5398791659376163`*^9}, {3.5399079172749767`*^9, 3.539907920534981*^9}, {
   3.539907989705078*^9, 3.5399079959450865`*^9}, {3.5399084131756706`*^9, 
   3.539908413365671*^9}, {3.5399098233376446`*^9, 3.539909825507648*^9}, {
   3.539911719093506*^9, 3.5399117237635126`*^9}, {3.5399117615235653`*^9, 
   3.539911789053604*^9}, {3.539911825573655*^9, 3.539911826853657*^9}, {
   3.5399121026740427`*^9, 3.5399121080540504`*^9}, {3.5400525421824102`*^9, 
   3.540052546452416*^9}, {3.540225445604204*^9, 3.5402254620466332`*^9}, {
   3.540246837799783*^9, 3.5402468548298073`*^9}, 3.540253158138632*^9, {
   3.540258206054838*^9, 3.5402582233148623`*^9}, {3.540258564005339*^9, 
   3.5402585665953426`*^9}, 3.5403195777839775`*^9, 3.5403198886027546`*^9, 
   3.5403200387483425`*^9, {3.54034257060467*^9, 3.540342575644677*^9}, {
   3.540398255328141*^9, 3.540398258401346*^9}, {3.5415590771274023`*^9, 
   3.5415591276558905`*^9}, {3.5416498676490674`*^9, 3.5416498715990725`*^9}, 
   3.541875470169911*^9, {3.5605358410266924`*^9, 3.560535849346704*^9}, 
   3.569695608938452*^9, {3.685766521868433*^9, 3.6857665223564615`*^9}, {
   3.685814676765744*^9, 3.6858146853222337`*^9}, {3.685817453547567*^9, 
   3.6858175185792866`*^9}, {3.6858175674780836`*^9, 3.685817574945511*^9}, {
   3.6858200462728624`*^9, 3.685820053981303*^9}, {3.6858201209671345`*^9, 
   3.685820121203148*^9}, {3.6858201592913265`*^9, 3.685820188706009*^9}, {
   3.685822409797048*^9, 3.6858224493793125`*^9}, {3.6860829602623825`*^9, 
   3.6860829607744117`*^9}, {3.68608349819915*^9, 3.6860834982051506`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["N:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"e", " ", "x"}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sech", "[", "u", "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{"u", "\[Equal]", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        SuperscriptBox["x", "n"]}]}]}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.519414342899901*^9, 3.519414474720132*^9}, {
   3.5197939535480833`*^9, 3.5197939539380836`*^9}, {3.5197940297698174`*^9, 
   3.5197940299726176`*^9}, 3.519795153580191*^9, {3.5200103027397947`*^9, 
   3.5200103044997973`*^9}, {3.5232186878169007`*^9, 
   3.5232186881569014`*^9}, {3.5232193955778913`*^9, 
   3.5232193955778913`*^9}, {3.5233166487845354`*^9, 
   3.5233166487845354`*^9}, {3.5233167010346084`*^9, 
   3.5233167010346084`*^9}, {3.523318546315711*^9, 3.523318573368556*^9}, {
   3.5239220709492664`*^9, 3.5239220924617043`*^9}, {3.5239221279205666`*^9, 
   3.5239221365629816`*^9}, {3.523930270899587*^9, 3.523930270899587*^9}, {
   3.5240761703528385`*^9, 3.5240761703528385`*^9}, {3.52407843124921*^9, 
   3.5240784332304134`*^9}, {3.5240784932749186`*^9, 
   3.5240784932749186`*^9}, {3.524079230095413*^9, 3.524079246553442*^9}, {
   3.5240858499762287`*^9, 3.524085860178646*^9}, {3.524085945261196*^9, 
   3.524085945261196*^9}, {3.5242763399632483`*^9, 3.5242763411488504`*^9}, {
   3.5242771575294847`*^9, 3.5242771578102846`*^9}, {3.530500224433988*^9, 
   3.530500225113989*^9}, {3.5313467876910577`*^9, 3.5313467883119507`*^9}, {
   3.5332231066826243`*^9, 3.5332231066826243`*^9}, {3.5332248881251183`*^9, 
   3.533224890245121*^9}, {3.5361011385491977`*^9, 3.5361011394332485`*^9}, {
   3.5363501469745007`*^9, 3.5363501506345057`*^9}, {3.5363617411167684`*^9, 
   3.5363617534067855`*^9}, {3.536366615151597*^9, 3.5363666230616083`*^9}, {
   3.5363667754518213`*^9, 3.5363667821318307`*^9}, {3.536366906722005*^9, 
   3.536366922022027*^9}, {3.536596861742076*^9, 3.5365968701504908`*^9}, {
   3.5366042542749715`*^9, 3.536604254462172*^9}, {3.536625554425806*^9, 
   3.536625554775807*^9}, {3.5366276426139326`*^9, 3.536627642853933*^9}, {
   3.536629402336396*^9, 3.536629402746397*^9}, {3.5366940603006477`*^9, 
   3.536694061273703*^9}, {3.5366943323932104`*^9, 3.536694332661226*^9}, {
   3.536694390476533*^9, 3.536694402176202*^9}, {3.5368634751022315`*^9, 
   3.5368634756170325`*^9}, {3.536980474148706*^9, 3.5369804925387316`*^9}, {
   3.5369807910591497`*^9, 3.5369808136991816`*^9}, 3.538443999546241*^9, {
   3.538444040229568*^9, 3.5384440801737804`*^9}, {3.544471201864182*^9, 
   3.5444712020241823`*^9}, {3.5499343621399236`*^9, 
   3.5499343628887253`*^9}, {3.5693429012648573`*^9, 3.569342923814889*^9}, {
   3.5693432071452856`*^9, 3.5693432074652863`*^9}, {3.569351915062778*^9, 
   3.569351927142795*^9}, {3.569431211483277*^9, 3.569431211683277*^9}, 
   3.5757865832172976`*^9, {3.5763466442642536`*^9, 3.5763467017043343`*^9}, {
   3.576346758794414*^9, 3.576346766914425*^9}, 3.5763484755768175`*^9, {
   3.685762402740833*^9, 3.685762437184803*^9}, {3.6857626559973183`*^9, 
   3.685762656409342*^9}, 3.6857631655784645`*^9, {3.685823800238577*^9, 
   3.6858238243419557`*^9}, 3.686082910081512*^9, 3.68608300165975*^9, 
   3.6860834829882803`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic normalization", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495840214754669*^9, {3.4958483177760134`*^9, 
   3.495848318886015*^9}, {3.495925911922002*^9, 3.495925920122013*^9}, 
   3.4961847242848682`*^9, 3.496184957525194*^9, 3.496188449500083*^9, 
   3.4961908979261436`*^9, 3.4961924998683863`*^9, 3.4961928754389124`*^9, {
   3.51849075797458*^9, 3.5184907698562593`*^9}, {3.574710513759987*^9, 
   3.5747105160099897`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"u", "\[Equal]", 
   RowBox[{"c", "+", 
    RowBox[{"d", " ", 
     SuperscriptBox["x", "n"]}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.495391630941485*^9, 3.4953916682515373`*^9}, 
   3.495398892616804*^9, {3.495402251391507*^9, 3.4954022711315346`*^9}, {
   3.495488783827441*^9, 3.4954888500775337`*^9}, {3.4954889799777155`*^9, 
   3.495489009627757*^9}, {3.495489141407942*^9, 3.495489151717956*^9}, {
   3.495489235178073*^9, 3.495489239268079*^9}, {3.495489386068284*^9, 
   3.4954894212383337`*^9}, {3.495489464438394*^9, 3.4954894647383947`*^9}, {
   3.495489500148444*^9, 3.4954895034984484`*^9}, {3.4954897331687703`*^9, 
   3.495489780118836*^9}, {3.495493913565876*^9, 3.495493935715907*^9}, {
   3.495494084919718*^9, 3.4954941083997507`*^9}, 3.495494511560315*^9, {
   3.495494580840412*^9, 3.4954945834404163`*^9}, {3.495494615970462*^9, 
   3.495494740200636*^9}, {3.495494880710832*^9, 3.4954948880508423`*^9}, {
   3.4954949819649754`*^9, 3.495494999445*^9}, {3.495495046515066*^9, 
   3.495495072875103*^9}, {3.4954951239351745`*^9, 3.4954951241651745`*^9}, {
   3.4954953673051157`*^9, 3.4954953726551237`*^9}, {3.495495450474448*^9, 
   3.495495453173253*^9}, {3.495495542140209*^9, 3.495495583792282*^9}, {
   3.4954957431465626`*^9, 3.4954957746118174`*^9}, {3.495495914419263*^9, 
   3.495495917804469*^9}, {3.495495955322535*^9, 3.4954960459586945`*^9}, {
   3.495496189588146*^9, 3.4954961923181515`*^9}, {3.4954973384365644`*^9, 
   3.495497357577798*^9}, {3.5240858715198665`*^9, 3.52408591925595*^9}, {
   3.5331536712917595`*^9, 3.5331536971617956`*^9}, {3.533223063022563*^9, 
   3.5332230658125668`*^9}, {3.533224894045127*^9, 3.5332248954551287`*^9}, 
   3.5363501685345306`*^9, {3.538444353705845*^9, 3.5384443676658645`*^9}, {
   3.5499343655595293`*^9, 3.549934366379531*^9}, {3.5693429326149015`*^9, 
   3.5693429326149015`*^9}, {3.5693520880530205`*^9, 
   3.5693520882530203`*^9}, {3.576346777874441*^9, 3.576346777874441*^9}, {
   3.6858238270481105`*^9, 3.6858238270481105`*^9}, {3.68582386166309*^9, 
   3.68582386166309*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"e", " ", "x"}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sech", "[", "u", "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"e", " ", "x"}], ")"}], "m"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Sech", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", " ", 
              SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.4953915848214207`*^9, 
   3.495391696001576*^9, {3.495401987881138*^9, 3.49540199674115*^9}, {
   3.495402119591322*^9, 3.4954021482513623`*^9}, {3.4954887467773895`*^9, 
   3.4954887749874287`*^9}, 3.495488944397666*^9, 3.495489263778113*^9, 
   3.4954893636582527`*^9, 3.4954898177188883`*^9, 3.495489875358969*^9, 
   3.495493833545764*^9, 3.495493864175807*^9, 3.4954940303560395`*^9, 
   3.4954941516698112`*^9, 3.4954942700599775`*^9, 3.4954948473707857`*^9, {
   3.495495264965372*^9, 3.4954952782653904`*^9}, {3.4954956850364604`*^9, 
   3.4954957088577023`*^9}, {3.495495865341577*^9, 3.4954958884920177`*^9}, {
   3.495496084225561*^9, 3.4954961029143944`*^9}, {3.495496211459385*^9, 
   3.4954962213810024`*^9}, 3.495496440218187*^9, {3.495497026732417*^9, 
   3.4954970596328745`*^9}, {3.495497256957621*^9, 3.495497302338101*^9}, 
   3.533151648818928*^9, 3.5331516797189713`*^9, 3.533151717349024*^9, {
   3.5331518776292486`*^9, 3.533151970249378*^9}, {3.5331520176994443`*^9, 
   3.5331520227894516`*^9}, {3.533152054329496*^9, 3.5331520626995077`*^9}, 
   3.533152270349798*^9, {3.533153065130911*^9, 3.5331530971109557`*^9}, 
   3.53315335008131*^9, {3.5331535194015465`*^9, 3.5331535356615696`*^9}, 
   3.5331536017616625`*^9, {3.533221927890974*^9, 3.533221930830978*^9}, {
   3.533222264011444*^9, 3.533222283731472*^9}, {3.5332223304615374`*^9, 
   3.5332223353515444`*^9}, 3.5363501604045196`*^9, {3.536361767566806*^9, 
   3.5363617697768087`*^9}, {3.5363666287016163`*^9, 
   3.5363666313816195`*^9}, {3.536366784271834*^9, 3.5363667868618374`*^9}, {
   3.536366923782029*^9, 3.5363669254320316`*^9}, {3.5365968786057057`*^9, 
   3.536596881944112*^9}, {3.5366940930205193`*^9, 3.53669410440917*^9}, {
   3.5366942507975435`*^9, 3.536694251403578*^9}, {3.536694493325415*^9, 
   3.536694495295528*^9}, 3.536980387788585*^9, {3.5384441491255584`*^9, 
   3.538444158185571*^9}, 3.5384445157160716`*^9, {3.5693429405449123`*^9, 
   3.569342962434943*^9}, {3.5693520924330263`*^9, 3.5693520926030264`*^9}, {
   3.5693527582739587`*^9, 3.569352760173961*^9}, {3.5763467856944513`*^9, 
   3.5763467984944696`*^9}, {3.5763484883768353`*^9, 
   3.5763484998968515`*^9}, {3.6857624906998634`*^9, 3.685762499708379*^9}, {
   3.685762681134756*^9, 3.6857626835598946`*^9}, {3.6857631664905167`*^9, 
   3.685763167042548*^9}, {3.6858238451961484`*^9, 3.685823867573428*^9}, {
   3.6860830022757854`*^9, 3.6860830027318115`*^9}, {3.6860834830062814`*^9, 
   3.686083483013282*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e_", "*", "x_"}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Sech", "[", "u_", "]"}]}]}], ")"}], "^", "p_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"e", "*", "x"}], ")"}], "^", "m"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Sech", "[", 
           RowBox[{"ExpandToSum", "[", 
            RowBox[{"u", ",", "x"}], "]"}], "]"}]}]}], ")"}], "^", "p"}]}], 
     ",", "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "m", ",", "p"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"BinomialQ", "[", 
     RowBox[{"u", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"BinomialMatchQ", "[", 
      RowBox[{"u", ",", "x"}], "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4954018196509027`*^9, {3.495401867050969*^9, 3.4954018672609687`*^9}, {
   3.4954022872215567`*^9, 3.4954022882115583`*^9}, 3.495488713187342*^9, 
   3.4954889210576334`*^9, 3.4954892270180616`*^9, 3.4954893399982195`*^9, {
   3.4954894833184204`*^9, 3.495489485938424*^9}, 3.4954897194087505`*^9, 
   3.495493755131653*^9, {3.4954938826158323`*^9, 3.495493884975836*^9}, 
   3.4954939962159915`*^9, {3.4954942766399865`*^9, 3.4954942945800114`*^9}, 
   3.4954948208307486`*^9, {3.495495087335123*^9, 3.495495087705124*^9}, 
   3.4954951805652537`*^9, 3.495495346275087*^9, 3.495495665489626*^9, 
   3.4954958533919563`*^9, {3.49549609483358*^9, 3.495496110792408*^9}, 
   3.4954961789333277`*^9, 3.495497173544275*^9, {3.495681286888199*^9, 
   3.4956812892482023`*^9}, {3.5240859566180162`*^9, 3.52408598201486*^9}, {
   3.524086057533393*^9, 3.524086058937395*^9}, {3.5242757161181526`*^9, 
   3.5242757216717625`*^9}, {3.5242763445964565`*^9, 
   3.5242763477320623`*^9}, {3.5331525961202545`*^9, 3.533152618700286*^9}, {
   3.5331527018704023`*^9, 3.5331528058905478`*^9}, {3.533153282981216*^9, 
   3.5331533342812877`*^9}, {3.533153565251611*^9, 3.533153599281659*^9}, {
   3.5332224159616575`*^9, 3.533222435081684*^9}, {3.5332224656717267`*^9, 
   3.533222494301767*^9}, {3.533223281652869*^9, 3.53322331799292*^9}, {
   3.5332234651831264`*^9, 3.5332234684731307`*^9}, {3.533223854473671*^9, 
   3.5332238609936805`*^9}, {3.5332239572838154`*^9, 3.5332239599938188`*^9}, 
   3.533224847425061*^9, {3.5332249144151554`*^9, 3.533224915905157*^9}, 
   3.533246982034763*^9, 3.5332605459462523`*^9, {3.536350185774555*^9, 
   3.536350207334585*^9}, {3.5363506584052167`*^9, 3.5363506914352627`*^9}, {
   3.5363508662655077`*^9, 3.5363509090255675`*^9}, {3.5363510097557087`*^9, 
   3.5363510569557743`*^9}, {3.5363512834660916`*^9, 3.536351309536128*^9}, {
   3.5363515550764723`*^9, 3.5363516176765594`*^9}, {3.5363516722566357`*^9, 
   3.5363516724366364`*^9}, {3.536356352083194*^9, 3.536356353383196*^9}, {
   3.5363617881968346`*^9, 3.536361833056897*^9}, {3.536366667801671*^9, 
   3.5363667247217503`*^9}, {3.5363667904918423`*^9, 3.536366799971856*^9}, {
   3.536366941382054*^9, 3.536366980882109*^9}, {3.5365968943773336`*^9, 
   3.536596936123007*^9}, {3.536596976558278*^9, 3.536597025589164*^9}, 
   3.536602461258152*^9, {3.5366940777176437`*^9, 3.5366940881722417`*^9}, 
   3.5366943020244737`*^9, {3.536694516327731*^9, 3.5366945346767807`*^9}, {
   3.5369801281282215`*^9, 3.5369801381582355`*^9}, 3.536980329338503*^9, {
   3.53698041236862*^9, 3.5369804166186256`*^9}, {3.5369807322990675`*^9, 
   3.536980746969088*^9}, 3.538444106556738*^9, {3.5384444438259706`*^9, 
   3.5384444863560305`*^9}, 3.544471282097495*^9, {3.549934369376335*^9, 
   3.549934370546336*^9}, {3.555274643817338*^9, 3.555274658697359*^9}, {
   3.5693429690149527`*^9, 3.569343004485002*^9}, {3.569343115935158*^9, 
   3.5693431274951744`*^9}, {3.5693438869262376`*^9, 
   3.5693438923862453`*^9}, {3.5693452399481316`*^9, 
   3.5693452412481337`*^9}, {3.5693495213494267`*^9, 
   3.5693495533094716`*^9}, {3.5693499264999943`*^9, 3.569349931960002*^9}, {
   3.569351944542819*^9, 3.5693519905128837`*^9}, {3.576346707344342*^9, 
   3.5763467201043596`*^9}, 3.576346817984497*^9, {3.576346886044592*^9, 
   3.576346989924738*^9}, {3.5763485357069016`*^9, 3.576348553696927*^9}, {
   3.6857625176084027`*^9, 3.685762598976057*^9}, {3.685762696693646*^9, 
   3.685762713057582*^9}, {3.68576316759658*^9, 3.685763169276676*^9}, {
   3.6858238980021687`*^9, 3.685824003763218*^9}, {3.686083003285843*^9, 
   3.6860830037978725`*^9}, {3.6860834830202823`*^9, 3.6860834830272827`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e_", "*", "x_"}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Csch", "[", "u_", "]"}]}]}], ")"}], "^", "p_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"e", "*", "x"}], ")"}], "^", "m"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Csch", "[", 
           RowBox[{"ExpandToSum", "[", 
            RowBox[{"u", ",", "x"}], "]"}], "]"}]}]}], ")"}], "^", "p"}]}], 
     ",", "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "m", ",", "p"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"BinomialQ", "[", 
     RowBox[{"u", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"BinomialMatchQ", "[", 
      RowBox[{"u", ",", "x"}], "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4954018196509027`*^9, {3.495401867050969*^9, 3.4954018672609687`*^9}, {
   3.4954022872215567`*^9, 3.4954022882115583`*^9}, 3.495488713187342*^9, 
   3.4954889210576334`*^9, 3.4954892270180616`*^9, 3.4954893399982195`*^9, {
   3.4954894833184204`*^9, 3.495489485938424*^9}, 3.4954897194087505`*^9, 
   3.495493755131653*^9, {3.4954938826158323`*^9, 3.495493884975836*^9}, 
   3.4954939962159915`*^9, {3.4954942766399865`*^9, 3.4954942945800114`*^9}, 
   3.4954948208307486`*^9, {3.495495087335123*^9, 3.495495087705124*^9}, 
   3.4954951805652537`*^9, 3.495495346275087*^9, 3.495495665489626*^9, 
   3.4954958533919563`*^9, {3.49549609483358*^9, 3.495496110792408*^9}, 
   3.4954961789333277`*^9, 3.495497173544275*^9, {3.495681286888199*^9, 
   3.4956812892482023`*^9}, {3.5240859566180162`*^9, 3.52408598201486*^9}, {
   3.524086057533393*^9, 3.524086058937395*^9}, {3.5242757161181526`*^9, 
   3.5242757216717625`*^9}, {3.5242763445964565`*^9, 
   3.5242763477320623`*^9}, {3.5331525961202545`*^9, 3.533152618700286*^9}, {
   3.5331527018704023`*^9, 3.5331528058905478`*^9}, {3.533153282981216*^9, 
   3.5331533342812877`*^9}, {3.533153565251611*^9, 3.533153599281659*^9}, {
   3.5332224159616575`*^9, 3.533222435081684*^9}, {3.5332224656717267`*^9, 
   3.533222494301767*^9}, {3.533223281652869*^9, 3.53322331799292*^9}, {
   3.5332234651831264`*^9, 3.5332234684731307`*^9}, {3.533223854473671*^9, 
   3.5332238609936805`*^9}, {3.5332239572838154`*^9, 3.5332239599938188`*^9}, 
   3.533224847425061*^9, {3.5332249144151554`*^9, 3.533224915905157*^9}, 
   3.533246982034763*^9, 3.5332605459462523`*^9, {3.536350185774555*^9, 
   3.536350207334585*^9}, {3.5363506584052167`*^9, 3.5363506914352627`*^9}, {
   3.5363508662655077`*^9, 3.5363509090255675`*^9}, {3.5363510097557087`*^9, 
   3.5363510569557743`*^9}, {3.5363512834660916`*^9, 3.536351309536128*^9}, {
   3.5363515550764723`*^9, 3.5363516176765594`*^9}, {3.5363516722566357`*^9, 
   3.5363516724366364`*^9}, {3.536356352083194*^9, 3.536356353383196*^9}, {
   3.5363617881968346`*^9, 3.536361833056897*^9}, {3.536366667801671*^9, 
   3.5363667247217503`*^9}, {3.5363667904918423`*^9, 3.536366799971856*^9}, {
   3.536366941382054*^9, 3.536366980882109*^9}, {3.5365968943773336`*^9, 
   3.536596936123007*^9}, {3.536596976558278*^9, 3.536597025589164*^9}, 
   3.536602461258152*^9, {3.5366940777176437`*^9, 3.5366940881722417`*^9}, 
   3.5366943020244737`*^9, {3.536694516327731*^9, 3.5366945346767807`*^9}, {
   3.5369801281282215`*^9, 3.5369801381582355`*^9}, 3.536980329338503*^9, {
   3.53698041236862*^9, 3.5369804166186256`*^9}, {3.5369807322990675`*^9, 
   3.536980746969088*^9}, 3.538444106556738*^9, {3.5384444438259706`*^9, 
   3.5384444863560305`*^9}, 3.544471282097495*^9, {3.549934369376335*^9, 
   3.549934370546336*^9}, {3.555274643817338*^9, 3.555274658697359*^9}, {
   3.5693429690149527`*^9, 3.569343004485002*^9}, {3.569343115935158*^9, 
   3.5693431274951744`*^9}, {3.5693438869262376`*^9, 
   3.5693438923862453`*^9}, {3.5693452399481316`*^9, 
   3.5693452412481337`*^9}, {3.5693495213494267`*^9, 
   3.5693495533094716`*^9}, {3.5693499264999943`*^9, 3.569349931960002*^9}, {
   3.569351944542819*^9, 3.5693519905128837`*^9}, {3.576346707344342*^9, 
   3.5763467201043596`*^9}, 3.576346817984497*^9, {3.576346886044592*^9, 
   3.576346989924738*^9}, {3.5763485357069016`*^9, 3.576348553696927*^9}, {
   3.6857625176084027`*^9, 3.685762598976057*^9}, {3.685762696693646*^9, 
   3.685762713057582*^9}, {3.68576316759658*^9, 3.685763169276676*^9}, {
   3.6858238980021687`*^9, 3.6858240323568535`*^9}, {3.686082964405619*^9, 
   3.686082964909648*^9}, {3.686083498213151*^9, 3.6860834982191515`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{
  3.4796643211106243`*^9, {3.536351324436149*^9, 3.536351326496152*^9}, {
   3.5363515481064625`*^9, 3.536351548866463*^9}}]
}, Closed]],

Cell[BoxData[" "], "Input",
 CellChangeTimes->{3.57634840581672*^9}],

Cell[BoxData[
 StyleBox[
  RowBox[{Cell[TextData[StyleBox["Rules for integrands of the form",
    FontFamily->"Arial",
    FontSize->16]], "None"], 
   SuperscriptBox["x", "m"], " ", 
   SuperscriptBox[
    RowBox[{"Sech", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox["x", "n"]}]}], "]"}], "p"], " ", 
   RowBox[{"Sinh", "[", 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", 
      SuperscriptBox["x", "n"]}]}], "]"}]}],
  FontSize->16]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, {3.5233155055329347`*^9, 3.523315506402936*^9}, {
   3.523318726949605*^9, 3.5233187276796064`*^9}, {3.523920400879534*^9, 
   3.5239204094439487`*^9}, 3.52392096260852*^9, 3.523921038171853*^9, 
   3.5340477459008017`*^9, 3.5340515540554085`*^9, {3.536542511100503*^9, 
   3.53654251626051*^9}, {3.536775961244521*^9, 3.5367759616145215`*^9}, {
   3.544373142375139*^9, 3.5443731599851637`*^9}, {3.5721095751430073`*^9, 
   3.5721095751430073`*^9}, {3.57578648209792*^9, 3.575786503859958*^9}, 
   3.575786540270422*^9, {3.5757866379421935`*^9, 3.5757866609522343`*^9}, 
   3.5758478960540276`*^9, 3.57584912634415*^9, 3.575849218264279*^9, {
   3.575849275424359*^9, 3.57584927603436*^9}, {3.6857607860863657`*^9, 
   3.6857608151510277`*^9}, 3.6857619580463977`*^9, 3.6860834830392833`*^9, {
   3.6860836428564243`*^9, 3.6860836470716653`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["x", "m"], " ", 
    SuperscriptBox[
     RowBox[{"Sech", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        SuperscriptBox["x", "n"]}]}], "]"}], "p"], " ", 
    RowBox[{"Sinh", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox["x", "n"]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
      " ", 
      RowBox[{
       RowBox[{"m", "-", "n"}], "\[GreaterEqual]", "0"}], " ", "\[And]", " ", 
      RowBox[{"p", "\[NotEqual]", "1"}]}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.5525328819892797`*^9, 
   3.5527731546608505`*^9, 3.553222366079949*^9, {3.574878892237171*^9, 
   3.574878896043578*^9}, {3.5748794303045163`*^9, 3.57487944361134*^9}, 
   3.574881171829175*^9, {3.574887120235253*^9, 3.574887131005268*^9}, 
   3.5748877279261036`*^9, {3.574888405747052*^9, 3.574888405747052*^9}, {
   3.574959730430708*^9, 3.574959734700714*^9}, {3.5749599853510647`*^9, 
   3.574959999411084*^9}, 3.574961543243246*^9, {3.575079490519349*^9, 
   3.575079493218154*^9}, {3.575079675161273*^9, 3.575079690823701*^9}, {
   3.5750813418994007`*^9, 3.575081344426605*^9}, {3.5750840129128923`*^9, 
   3.5750840151748962`*^9}, {3.6860835691552086`*^9, 3.6860835707462997`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.498070277840313*^9, 
   3.498320585541303*^9, 3.4983399737643228`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{"m", "-", "n"}], "\[GreaterEqual]", "0"}], " ", "\[And]", " ", 
   RowBox[{"p", "\[NotEqual]", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4983332564786777`*^9, 3.4983332736887016`*^9}, {
   3.498333370138837*^9, 3.4983334115588946`*^9}, {3.4983338041794443`*^9, 
   3.4983338086894503`*^9}, {3.498337052812745*^9, 3.4983370759943857`*^9}, {
   3.4983383977721167`*^9, 3.498338452392193*^9}, {3.498340047164426*^9, 
   3.498340067994455*^9}, {3.5750796809800835`*^9, 3.575079682368486*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["x", "m"], " ", 
    SuperscriptBox[
     RowBox[{"Sech", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        SuperscriptBox["x", "n"]}]}], "]"}], "p"], " ", 
    RowBox[{"Sinh", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox["x", "n"]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["x", 
          RowBox[{"m", "-", "n", "+", "1"}]], " ", 
         SuperscriptBox[
          RowBox[{"Sech", "[", 
           RowBox[{"a", "+", 
            RowBox[{"b", " ", 
             SuperscriptBox["x", "n"]}]}], "]"}], 
          RowBox[{"p", "-", "1"}]]}], 
        RowBox[{"b", " ", "n", " ", 
         RowBox[{"(", 
          RowBox[{"p", "-", "1"}], ")"}]}]]}]}]}]}]}], "+", 
  RowBox[{
   FractionBox[
    RowBox[{"m", "-", "n", "+", "1"}], 
    RowBox[{"b", " ", "n", " ", 
     RowBox[{"(", 
      RowBox[{"p", "-", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", 
      RowBox[{"m", "-", "n"}]], " ", 
     SuperscriptBox[
      RowBox[{"Sech", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox["x", "n"]}]}], "]"}], 
      RowBox[{"p", "-", "1"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, {3.4983205558700514`*^9, 3.4983205610648603`*^9}, {
   3.4983399892343445`*^9, 3.4983400148843803`*^9}, {3.5156172992328014`*^9, 
   3.515617313044591*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"Sech", "[", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"x_", "^", "n_."}]}]}], "]"}], "^", "p_"}], "*", 
     RowBox[{"Sinh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"x_", "^", "n_."}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], 
  " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"x", "^", 
       RowBox[{"(", 
        RowBox[{"m", "-", "n", "+", "1"}], ")"}]}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"Sech", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 
       RowBox[{"(", 
        RowBox[{"p", "-", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", "n", "*", 
        RowBox[{"(", 
         RowBox[{"p", "-", "1"}], ")"}]}], ")"}]}]}], " ", "+", "\n", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "-", "n", "+", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", "n", "*", 
        RowBox[{"(", 
         RowBox[{"p", "-", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "n"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"Sech", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 
         RowBox[{"(", 
          RowBox[{"p", "-", "1"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "p"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"IntegerQ", "[", "n", "]"}], " ", "&&", " ", 
    RowBox[{"GeQ", "[", 
     RowBox[{
      RowBox[{"m", "-", "n"}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"p", ",", "1"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4983205373216186`*^9, 3.4983399672443137`*^9, 3.515617261743657*^9, {
   3.5750793324142714`*^9, 3.5750793336154737`*^9}, {3.575498621653291*^9, 
   3.575498648153328*^9}, 3.706141218447728*^9, {3.715212801400669*^9, 
   3.715212839232833*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"Csch", "[", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"x_", "^", "n_."}]}]}], "]"}], "^", "p_"}], "*", 
     RowBox[{"Cosh", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"x_", "^", "n_."}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], 
  " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"x", "^", 
       RowBox[{"(", 
        RowBox[{"m", "-", "n", "+", "1"}], ")"}]}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"Csch", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 
       RowBox[{"(", 
        RowBox[{"p", "-", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", "n", "*", 
        RowBox[{"(", 
         RowBox[{"p", "-", "1"}], ")"}]}], ")"}]}]}], " ", "+", "\n", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "-", "n", "+", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", "n", "*", 
        RowBox[{"(", 
         RowBox[{"p", "-", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "n"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"Csch", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 
         RowBox[{"(", 
          RowBox[{"p", "-", "1"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "p"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"IntegerQ", "[", "n", "]"}], " ", "&&", " ", 
    RowBox[{"GeQ", "[", 
     RowBox[{
      RowBox[{"m", "-", "n"}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"p", ",", "1"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4983205373216186`*^9, 3.4983399672443137`*^9, {3.498347135863964*^9, 
   3.4983471358739643`*^9}, 3.498347528344514*^9, 3.4983540269936123`*^9, 
   3.5156172827018557`*^9, {3.5750793377026806`*^9, 3.575079338935083*^9}, {
   3.575498627523299*^9, 3.575498652993335*^9}, 3.7061412184677277`*^9, {
   3.715212803555792*^9, 3.7152128436170835`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
},
AutoGeneratedPackage->Automatic,
CellGrouping->Manual,
WindowSize->{1912, 961},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingStartingPageNumber->1,
PrintingPageRange->{1, 32000},
PageHeaders->{{
   Cell[
    TextData[{
      StyleBox[
       CounterBox["Page"], "PageNumber"], " ", "|", " ", 
      StyleBox[
       ValueBox["FileName"], "Header"]}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, {
   Cell[
    TextData[{
     "Rules", " ", "for", " ", "integrands", " ", "of", " ", "the", " ", 
      "form", " ", "(", "e", " ", "x", ")", "^", "m", " ", "(", "a", "+", "b",
       " ", "sech", "(", "c", "+", "d", " ", "x", "^", "n", ")", ")", "^", 
      "p"}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, 
   Cell[
    TextData[
     CounterBox["Page", CounterFunction :> Identity]], "Header", 
    CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}},
PageFooters->{{None, None, None}, {None, None, None}},
PageHeaderLines->{False, False},
PageFooterLines->{False, False},
PrintingOptions->{"FacingPages"->False,
"FirstPageFace"->Right,
"FirstPageFooter"->False,
"FirstPageHeader"->False,
"Magnification"->1.,
"PaperOrientation"->"Landscape",
"PaperSize"->{792, 612},
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->{{28.8, 41.976}, {28.8, 28.8}}},
Magnification->1.399999976158142,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 2296, 42, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[2866, 66, 7090, 110, 53, "Subsubtitle"],
Cell[9959, 178, 304, 4, 48, "Subsubsection"],
Cell[10266, 184, 2282, 48, 62, "Subsubsection"],
Cell[12551, 234, 532, 12, 51, "Subsubsection"],
Cell[13086, 248, 3330, 51, 54, "Subsubsection"],
Cell[16419, 301, 3187, 62, 82, "Subsubtitle"],
Cell[19609, 365, 819, 11, 48, "Subsubsection"],
Cell[20431, 378, 10609, 169, 145, "Code"],
Cell[31043, 549, 10562, 168, 159, "Code"],
Cell[41608, 719, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[41734, 726, 3060, 53, 53, "Subsubtitle"],
Cell[44797, 781, 2617, 36, 35, "Subsubsection"],
Cell[47417, 819, 2233, 46, 53, "Subsubtitle"],
Cell[49653, 867, 771, 11, 35, "Subsubsection"],
Cell[50427, 880, 1896, 44, 104, "Code"],
Cell[52326, 926, 1893, 44, 114, "Code"],
Cell[54222, 972, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[54348, 979, 5341, 89, 53, "Subsubtitle"],
Cell[59692, 1070, 479, 7, 48, "Subsubsection"],
Cell[60174, 1079, 2794, 44, 36, "Subsubsection"],
Cell[62971, 1125, 3747, 69, 82, "Subsubtitle"],
Cell[66721, 1196, 771, 11, 48, "Subsubsection"],
Cell[67495, 1209, 4969, 90, 145, "Code"],
Cell[72467, 1301, 4961, 90, 159, "Code"],
Cell[77431, 1393, 190, 4, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[77658, 1402, 5290, 87, 53, "Subsubtitle"],
Cell[82951, 1491, 478, 7, 48, "Subsubsection"],
Cell[83432, 1500, 2707, 43, 36, "Subsubsection"],
Cell[86142, 1545, 3543, 62, 74, "Subsubtitle"],
Cell[89688, 1609, 771, 11, 48, "Subsubsection"],
Cell[90462, 1622, 4866, 85, 145, "Code"],
Cell[95331, 1709, 4872, 85, 159, "Code"],
Cell[100206, 1796, 190, 4, 48, "Subsubsection"]
}, Closed]],
Cell[100411, 1803, 68, 1, 30, "Input"],
Cell[100482, 1806, 2510, 47, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[103017, 1857, 2519, 45, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[105561, 1906, 7126, 112, 53, "Subsubtitle"],
Cell[112690, 2020, 304, 4, 48, "Subsubsection"],
Cell[112997, 2026, 2496, 51, 62, "Subsubsection"],
Cell[115496, 2079, 557, 13, 51, "Subsubsection"],
Cell[116056, 2094, 3306, 52, 54, "Subsubsection"],
Cell[119365, 2148, 3177, 63, 82, "Subsubtitle"],
Cell[122545, 2213, 819, 11, 48, "Subsubsection"],
Cell[123367, 2226, 10862, 179, 145, "Code"],
Cell[134232, 2407, 10828, 178, 159, "Code"],
Cell[145063, 2587, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[145189, 2594, 3053, 54, 53, "Subsubtitle"],
Cell[148245, 2650, 2617, 36, 35, "Subsubsection"],
Cell[150865, 2688, 2259, 47, 53, "Subsubtitle"],
Cell[153127, 2737, 771, 11, 35, "Subsubsection"],
Cell[153901, 2750, 1979, 48, 104, "Code"],
Cell[155883, 2800, 1983, 48, 114, "Code"],
Cell[157869, 2850, 89, 2, 35, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[158007, 2858, 6868, 105, 53, "Subsubtitle"],
Cell[164878, 2965, 358, 5, 48, "Subsubsection"],
Cell[165239, 2972, 2080, 36, 55, "Subsubsection"],
Cell[167322, 3010, 3061, 42, 34, "Subsubsection"],
Cell[170386, 3054, 3380, 70, 89, "Subsubtitle"],
Cell[173769, 3126, 819, 11, 48, "Subsubsection"],
Cell[174591, 3139, 10739, 173, 145, "Code"],
Cell[185333, 3314, 10711, 172, 159, "Code"],
Cell[196047, 3488, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[196173, 3495, 5330, 90, 53, "Subsubtitle"],
Cell[201506, 3587, 478, 7, 48, "Subsubsection"],
Cell[201987, 3596, 2707, 43, 36, "Subsubsection"],
Cell[204697, 3641, 3682, 68, 74, "Subsubtitle"],
Cell[208382, 3711, 771, 11, 48, "Subsubsection"],
Cell[209156, 3724, 5070, 92, 145, "Code"],
Cell[214229, 3818, 5068, 92, 159, "Code"],
Cell[219300, 3912, 190, 4, 48, "Subsubsection"]
}, Closed]],
Cell[219505, 3919, 68, 1, 30, "Input"],
Cell[219576, 3922, 2422, 45, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[222023, 3971, 5251, 88, 53, "Subsubtitle"],
Cell[227277, 4061, 345, 5, 48, "Subsubsection"],
Cell[227625, 4068, 1384, 24, 36, "Subsubsection"],
Cell[229012, 4094, 2131, 59, 96, "Subsubtitle"],
Cell[231146, 4155, 771, 11, 48, "Subsubsection"],
Cell[231920, 4168, 2584, 76, 180, "Code"],
Cell[234507, 4246, 2686, 77, 194, "Code"],
Cell[237196, 4325, 89, 2, 48, "Subsubsection"]
}, Closed]]
}
]
*)

(* End of internal cache information *)